PRO/FMS-11_ 
Documentation 
Supplement 


Order No. AA-P103C-TK 


November 1985 


This supplement describes the differences between 

PRO/FMS-11 and FMS-11/RSX. You can use PRO/FMS-11 with 
the PRO/Tool Kit or the Professional Host Tool Kit to 

write applications for the Professional Series computers. 


REQUIRED SOFTWARE: Professional Host Tool Kit V3.0, 
or PRO/Tool Kit V3.0 


OPERATING SYSTEM: P/OS V3.0 


d/o} i] t/a] 


DIGITAL EQUIPMENT CORPORATION 
Maynard, Massachusetts 01754-2571 


First Printing, December 1982 
Revised, May 1983 
Revised, November 1985 


The information in this document is subject to change without 
notice and should not be construed as a commitment by Digital 
Equipment Corporation. Digital Equipment Corporation assumes no 
responsibility for any errors that may appear in this document. 


The software described in this document is furnished under a 
license and may only be used or copied in accordance with the 
terms of such license. 


No responsibility is assumed for the use or reliability of 
software on equipment that is not supplied by DIGITAL or its 
affiliated companies. 


The specifications and drawings, herein, are the property of 
Digital Equipment Corporation and shall not be reproduced or 
copied or used in whole or in part as the basis for the 
manufacture or sale of items without written permission. 


Copyright © 1985 by Digital Equipment Corporation 
All Rights Reserved 


The following are trademarks of Digital Equipment Corporation: 


CTI. BUS MASSBUS Rainbow ~ 
DEC PIP RSTS 
DECmate P/OS RSX 
DECsystem-10 PRO/BASIC TOOL “Kit 
DECSYSTEM-20 PRO/Communications UNIBUS 
DECUS Professional VAX 
DECwriter PRO/FMS VMS 
DIBOL PRO/RMS vat 


djilgli|tlal | fi PROSE Work Processor 


PROSE. PLUS 


CHAPTER 1 


fms 


CHAPTER 2 


NO BR 


CHAPTER 3 


W W W W 


CHAPTER 4 


> 


i 


ho 


NO NN Fr 


> 


WNRPRP RP 


fonds 


fads 


=> 


CONTENTS 


PREFACE 


INTRODUCTION TO PRO/FMS-11 


DEVELOPING PROGRAMS THAT USE PRO/FMS-11 
PRO/FMS DEVELOPMENT CYCLE 


THE FORM EDITOR, PROFED 


RUNNING PROFED IN TERMINAL EMULATION 
ATTRIBUTE DIFFERENCES 
THE PROFESSIONAL KEYBOARD AND THE FORM EDITOR 


THE FORM DRIVER 


THE PROFESSIONAL KEYBOARD AND THE FORM DRIVER 
LINKING WITH THE FORM DRIVER LIBRARY 
Bditing the «CMD. File 
Editing the .ODL- Fide “for Media Resident 
Forms ee ee ee a ae ee 
Editing the .ODL File For Memory Resident 
Forms 
EXAMPLE FILES “USING THE “OBJECT MODULE LIBRARY 
CHANGE IN FLOPEN 


FORM DRIVER CLUSTER LIBRARIES 


NEW CALLS TO THE CLUSTER LIBRARY i 
FNKON - Turn On Function Key Processing 
FNKOFF - Turn Off Function Key Processing 

LK201 FUNCTION KEY TERMINATOR VALUES 

MAPPING FIELD TERMINATORS AND EDITING 

FUNCTIONS 

LINKING WITH THE CLUSTER LIBRARIES 
Editing the .CMD File 
Editing the .ODL File for Media “Resident 
Forms Go at he ee a, MR ce es ee EE 
Editing the .ODL File for Memory Resident 
Forms Ce a ae 
Editing ous Tae tali scion. (.INS) File 

EXAMPLE FILES USING THE CLUSTER LIBRARY 


sie 


NI NO BO 
i 
RO ND Fe 


Iwan ~) ~~ ~!) 
i 
CON IN ~~) BP Fk 


~~] ~) 
i 
NM Nr Fr 


b> be 
I 
Wn 


CHAPTER 5 ENHANCEMENTS TO PRO/FMS-11 HELP FACILITIES 
CHAPTER 6 INSTALLING OPTIONAL APPLICATIONS 
CHAPTER 7 SAMPLE PRO/FMS-11 PROGRAMS 
Tod | TOOL KIT BASIC-PLUS-2 
fa oe BASDEM 
fae ee. MULLIB ews 
Fuge TOOL KIT COBOL-81 a ee ee 
reg | Passing Variables by Descriptor 
dee Passing Variables by Reference 
Teo TOOL KIT FORTRAN-77 
7.4 TOOL KIT MACRO-il1 
Teo TOOL KIT PASCAL 
INDEX 
FIGURES 
1-1 PRO/Tool Kit Development Cycle 
1-2 Host Tool Kit Development Cycle 
TABLES 
3-1 Keyboard Differences -- All Regions 
3-2 Keyboard Differences -- Scrolled Regions 
4-1 Returned Status Values and Codes for FNKON 
Call ae SY tee ee a a oe a ee 
4-2 Returned Status Values and Codes for FNKOFF 
Cail oe oe: Se ae cay oe ee 
4-3 Function Key Terminator Values 
4-4 Mapping Function Keys - All Regions 
4-5 Mapping Function Keys - Scrolled Regions 


1 


PREFACE 


Manual Objectives 


This document describes the differences between FMS-11/RSX 


applications and PRO/FMS-11 applications. It supplements two 
manuals: FMS-11/RSX Software Reference Manual and FMS-11/RSX 
Release Notes. Both manuals are included in the Tool Kit 


Documentation Set. 


Intended Audience 


This document is intended for experienced FMS-11 programmers. If 
you have not previously programmed with FMS-11, read the 
FMS-11/RSX Software Reference Manual. 


Also, you should have some experience with the Professional Host 
Tool Kit or tne PRO/Tool Kit. 


Structure of This Document 
This document contains seven chapters. 


Chapter 1, Introduction to PRO/FMS-11, describes the programming 
languages that you can use to develop a PRO/FMS-11 application. 
The chapter also illustrates the PRO/FMS-11 development cycle. 


Chapter 2, The Form Editor, lists the steps you follow to run 
PROFED in terminal emulation. It also lists attributes that you 
Should avoid when running PRO/FMS-11 applications. 


Chapter 3, The Form Driver, describes how to use the object 
module Form Driver. Included are directions for editing the 
command (.CMD) and descriptor (.ODL) files and linking with the 
object module. 


Chapter 4, Cluster Libraries, provides information on using’ the 
Form Driver cluster libraries. Included are directions for 
linking with cluster libraries, and examples that use the cluster 
libraries. 


Chapter 5, Enhancements to Help Facilities, explains how to 
create and use help for PRO/FMS-11. 


Chapter 6, Installing Optional Applications, tells you how to 
install the Debug Form Driver and the demonstration library for 
running the sample programs. 


Chapter 7, Sample PRO/FMS-11 Programs, lists sample programs’ for 
each of the following PRO/Tool Kit languages: BASIC-PLUS-2, 
COBOL-81, FORTRAN-77, MACRO-11, PASCAL. 


Associated Documents 
This document supplements two manuals: 
@® FMS-11/RSX Software Reference Manual 
@ FMS-11/RSX Release Notes 
These manuals are part of the Tool Kit documentation set. 


Note that the FMS-11/RSX Mini-Reference is not part of the Tool 
Kit documentation set, but may be useful when developing 
PRO/FMS-11 applications. | 


Conventions Used in This Document 


Convention/Term Meaning 


[optional] In a command line, square brackets indicate 
that the enclosed item is optional. In a file 
Specification, square brackets are part of 
the required syntax. 


UPPERCASE Uppercase words and letters, used in 
examples, indicate that you should type the 
word or letter exactly as shown. 


lowercase Lowercase words and letters, used in format 
examples, indicate that you should substitute 
a word or value of your own. Usually the 
lowercase word identifies the type Of 
Substitution required. 


Convention/Term 


Tool Kit 


Host Tool Kit 


PRO/Tool Kit 


red 


Meaning 


A horizontal ellipsis indicates that you can 
repeat the preceding item one or more times. 
For example: 


parameter [,parameter...] 
A vertical ellipsis ina figure or example 


means that not all of the statements are 
shown. 


This general term refers to the software you 
use to develop applications to run on a 
Professional computer. 


The Host Tool Kit is Tool Kit software that 
runs on a host computer, rather than on the 
Professional itself. 


The PRO/Tool Kit is the Tool Kit software 
that runs on the Professional computer. 


Interactive input appears in red. 


Vil 


CHAPTER 1 
INTRODUCTION TO PRO/FMS-11 


PRO/FMS-11 is a development COOL based on FMS-11. A 
forms-oriented video I/O management system, PRO/FMS-11 allows you 
to develop applications on either the Professional Host Tool Kit 
(under RSX-11M/11M-PLUS or VAX/VMS) or the PRO/Tool Kit (under 
P/OS). You can then run the application on your Professional. 

This documentation supplement describes the differences between 


FMS-11 applications designed for minicomputer/vVT100 systems and 
PRO/FMS-11 applications designed for the Professional. 


1.1 DEVELOPING PROGRAMS THAT USE PRO/FMS-11 


You can develop PRO/FMS-11 applications in the following Tool Kit 
languages: | 


@® BASIC-PLUS-2 
@® COBOL-81 

@® FORTRAN-77 

@ MACRO-11 

® PASCAL 


For specific restrictions and sample programs, see Chapter 7. 


PRO/FMS DEVELOPMENT CYCLE 


1.2 PRO/FMS DEVELOPMENT CYCLE 


The following sections describe the program development cycle for 
PRO/FMS-11 applications. 


Step 1: Create FMS Forms 
Create forms on the development system with the PRO/FMS-11 Form 
Editor, PROFED. To run PROFED, invoke one of the following 
commands, depending on your development system: 
@ On RSX (Host Tool Kit), type: 
>RUN SPROFED 
@ On VMS (Host Tool Kit), type: 
S RUN SYSSSYSTEM:PROFED 
@e On P/OS (PRO/Tool Kit), type: 
S RUN $PROFED 
See Chapter 2 for a complete description of PROFED. 
Step 2: Create Form Library 


Create a form library with the PRO/FMS-11 Form Utility, PROFUT. 
To run PROFUT, invoke one of the following commands, depending on 


your development system: 
@e On RSX (Host Tool Kit), type: 


PROFUT 


>RUN §$ 

@e On VMS (Host Tool Kit), type: 
S RUN SYSSSYSTEM: PROFUT 

e On P/OS (PRO/Tool Kit), type: 
S RUN $PROFUT 

Step 3: Write Source Code 


Write a source program containing the necessary Form Driver calls 
in the source code. 


PRO/FMS DEVELOPMENT CYCLE 


Step 4: Compile or Assemble the Program 

Use your compiler or assembler to process the source code. 

Step 5: Modify Command (.CMD) File and Descriptor (.ODL) File 
Choose either the object module Form Driver or cluster library 
Form Driver. To use the object module Form Driver, follow the 
instructions in Section 3.2.2. To use the cluster library Form 
Driver, follow the instructions in Section 4.4. 

You should use the debug version of the Form Driver to debug your 
program on the Professional. Then, when the program is 
error-free, use the non-debug version. 

Step 6: Task Build the Program 

Use the Professional Application Builder to task build your 
program. See the Tool Kit User’s Guide and the RSX-11M/M-PLUS 
Task Builder Manual for details. 


Step 7: Write Installation Command File 


Create the application installation file. See the Tool Kit 
User’s Guide for details. 


Step 8: (Host Tool Kit Only) Copy Files to Professional 

If you are using the Host Tool Kit for program development, copy 
the form library, task image, and installation command file to 
the Professional. 

Step 9: Install Application Onto P/OS 

Using either Fast Install or P/OS Install Application Services, 
install the application onto a P/OS menu. See Tool Kit Reference 
Manual for details on Fast Install. See the User’s Guide Hard 
Disk System for details on installing an application. 


Step 10: Run the Program 


Choose the installed application from the P/OS menu on which it 
is installed. 


PRO/FMS DEVELOPMENT CYCLE 


Figure 1-1 illustrates the development cycle with the 
ae ae 
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Figure 1-1: PRO/Tool Kit Development Cycle 
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PRO/ToolL 


PRO/FMS DEVELOPMENT CYCLE 


Figure 1-2 illustrates the development cycle with the Host Tool 
Ka 
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CHAPTER 2 
THE FORM EDITOR, PROFED 


RUNNING PROFED IN TERMINAL EMULATION 


To run PROFED in terminal emulation, set your terminal to vtT200 
mode. 


To use DEC multinational 8-bit mode characters, you must also: 


Set the Professional Terminal Emulator to 8-bit mode and no 
parity by using the Line entry on the Communications Set-up 
Menu. 


Set the host to 8-bit mode. 
To-do: Ehis:-Onm RSX (Host. Tool. Kit); types 
> SET /EBC=TI: 
To do this on VMS (Host Tool Kit), type: 


$ SET TERMINAL/EIGHT BIT 


The default is 7-bit mode. 


The following features are available once your system is in 8-bit 


mode: 

@e Field-marker characters include characters 241-277 octal. 

@® Background text includes the entire DEC Multinational 
Character Set. 

@® During application execution, PROFED forms (named data, form 
wide attributes, and field attributes) accept the DEC 
Multinational Character Set as input where any displayable 
character is requested. 

The DEC Multinational Character Set uses 8-bit codes. You must 
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RUNNING PROFED IN TERMINAL EMULATION 


create the forms in 8-bit mode to use 8-bit codes in form 
descriptions. (See the Terminal Subsystem Manual for more 
information on the DEC Multinational Character Set.) If you 
create your forms in 7-bit mode, you can use only the ACSII 
character set, not the DEC Multinational Character Set. 


2.2 ATTRIBUTE DIFFERENCES 


The following FMS attributes operate differently on the 
Professional than on the VT100 running under FMS/RSX-11: 


e Bold field. Not supported in wide-screen (132-column) mode. 


@e Bold reverse video field. Not recommended because of poor 
readability. 


@e Blink field. Can detract from PRO/FMS-11 performance if used 
excessively. 


These differences may affect Professional system performance 
and/for form reliability. You should avoid these attributes when 
creating PRO/FMS-11 applications. 


Also, note that PRO/FMS-11 allows fixed decimal fields to include 
a comma in place of a period for European applications. 


2.3 THE PROFESSIONAL KEYBOARD AND THE FORM EDITOR 


PRO/FMS uses different keys for some editing functions. Table 
3-1, lists these difierences: 


CHAPTER 3 
THE FORM DRIVER 


The form library file specification must be a valid file 
specification. For more information on file specifications, 
refer to the Tool Kit User’s Guide. 


To determine the device and directory of the application, use the 
TRALOG system directive to translate the logical APPLSDIR. Refer 
to the P/OS System Reference Manual for more details. 


The Form Driver can access a maximum of 60 forms per library. If 
you need more than 60 forms for your application, you must place 
the forms in multiple libraries (up to 4). You can access your 
forms in two ways: 


1. When you need forms from another library, close the current 
library and open another library file. This option is slower 
than the second, but requires less data space. 


2. You may have multiple impure areas with a library open in 
each. You can switch between impure areas to access the 
forms in each respective library. (See the sample BASIC 
program MULLIB in Chapter 7). This option is faster than the 
first, but requires more data space. 


3.1 THE PROFESSIONAL KEYBOARD AND THE FORM DRIVER 


With the Form Driver, PRO/FMS-11 uses different keys for some 
field terminators and interactive functions. Tables 3-1 and 3-2 
list the differences. 


THE PROFESSIONAL KEYBOARD AND THE FORM DRIVER 


Table 3-1: Keyboard Differences -- All Regions 


FUNCTION 


Enter form 

Move to next field 
Move to previous field 
Erase character 

Erase field 
Insert/Overstrike 

Help 


Repaint screen 


VT100 Professional 
ENTER/RETURN DO, ENTER/RETURN 
TAB Fi2, TAB 
BACKSPACE 3s al 

DELETE <X 

LINEFEED REMOVE 

PF1 Fi3 

PF2 HELP 

CTRL/W F20 


Table 3-2: Keyboard Differences -- Scrolled Regions 


FUNCTION 


Exit field backward 


Exit field forward 


VT100 Professional 
PFI Fi7 
PF2 a Be 

NOTE 


On the Professional you can display a help form 


by using the 


<HELP> key. 


<RESUME> 
key, and the <NEXT SCREEN> 


key instead of the <DO> 
key instead of the 
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3.2 LINKING WITH THE FORM DRIVER LIBRARY 

PRO/FMS-11 provides two versions of the Form Driver Library: 
@ Object Module 

e Cluster Library 


You must link your application with one of these libraries. 
Before you can link your application with either library, you 
must perform two preliminary steps. 


1. Because the Form Driver requires P/OS User Interface Service 
Routines support, you must edit your command file as 
described in the section on "POSRES Task Image Requirements" 
in the Tool Kit User’s Guide. 


2. You must also edit your command file for the language you are 
using. See language documentation for details. 


After performing these steps, you can link your program with the 
library you selected. In either case, you must edit the command 
(.CMD) and descriptor (.ODL) files to include the Form Driver 
library of your choice. 


This chapter describes how to link your program with the object 
module. Chapter 4 describes how to link your program with the 
cluster library. 


You can use the object module version of the Form Driver with 
P/OS V1.0 or later. 


Suppose your source code is in BASIC-PLUS-2. The BASIC-PLUS-2 
compiler generates a command file (filename.CMD) and an overlay 
descriptor language file (filename.ODL) when you enter the BUILD 
command. The following sections describe how to edit the .CMD 
and .ODL files. 


3.2.1 Editing the .CMD File 


After the preliminary editing described above, the .CMD file 
generated by the BASIC-PLUS-2 compiler for an application named 
"BASDEM" would look something like this: 
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SY:BASDEM/CP=SY:BASDEM/MP 

TASK = BASDEM 

UNITS = 19 

ASG = 121315 

ASG = SY21 2526372829 10211212 
EXTTSK= 952 

CLSTR = PBESML, POSRES,RMSRES:RO 


EXTSCT = MNSBUF:0 ; STATIC SINGLE CHOICE MENU 
EXTSCT = DMSBUF:0 ; DYNAMIC SINGLE CHOICE MENU 
EXTSCT = HLSBUF:3410 ; HELP TEXT/MENU 

EXTSCT = MMSBUF:0 ; MULTI-CHOICE MENU 

EXTSCT = FLSBUF:0 ; FILE SELECTION/SPECIFICATION 
GBLDEF = MNSLUN:20 ,; MENU FRAME FILE 

GBLDEF = HLSLUN:21 ; HELP FRAME FILE 

GBLDEF = MSSLUN:16 ; MESSAGE FRAME FILE 

GBLDEF = TTSLUN:15 ; TERMINAL I/O EVENT FLAG 
GBLDEF = MBSLUN:23 ; MESSAGE/STATUS DISPLAY 
GBLDEF = WCSLUN:22 ; DIRECTORY SEARCHES FOR OLDFIL and NEWFILE 
GBLDEF = TTSEFN:1 ; I/O EVENT FLAG 

fd 


To use your command file with PRO/FMS-11, you must edit it. 
Because FDV uses Logical Unit 5 for input and output to the 
terminal, edit the command file by doing the following: 


@e Find the lines beginning with "ASG" and edit them to read: 


ASG = T1:13:15:5 
ASG = SY:1:6:7:8:9:103:113:12 


e Set the extend section (EXTSCT) command to: 

EXTSCT = HLSBUF:3500 ; HELP TEXT/MENU 
If your application uses the P/OS Help Services (described in 
Chapter 5), compute your frame size and set the extension to this 
value if it is larger than the current value. See the Tool Kit 


User’s Guide for information on calculating frame size. 


The fully edited command file for "BASDEM" would look like this 
(changed lines appear with an asterisk): 
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SY:BASDEM/CP=SY:BASDEM/MP 

TASK = BASDEM 

UNITS = 19 

ASG: = Tisi321525 

ASG. = SY!#176:/7:8292:10:11 222 
EXTTSK= 952 

CLSTR = PBESML,POSRES,RMSRES:RO 


EXTSCT = MNSBUF:0 ; STATIC SINGLE CHOICE MENU 
EXTSCT = DMSBUF:0 ; DYNAMIC SINGLE CHOICE MENU 

"s EXTSCT = HLSBUF:3500 ; HELP TEXT/MENU 
EXTSCT = MMSBUF:0 ; MULTI-CHOICE MENU 
EXTSCT = FLSBUF:0 ; FILE SELECTION/SPECIFICATION 
GBLDEF = MNSLUN:20 ; MENU FRAME FILE 
GBLDEF = HLSLUN:21 ; HELP FRAME FILE 
GBLDEF = MSSLUN:16 ; MESSAGE FRAME FILE 
GBLDEF = TTSLUN:15 ; TERMINAL I/O EVENT FLAG 
GBLDEF = MBSLUN:23 ; MESSAGE/SSTATUS DISPLAY 
GBLDEF = WCSLUN:22 ; DIRECTORY SEARCHES FOR OLDFIL and NEWFILE 
GBLDEF = TTSEFN:1 ; I/O EVENT FLAG 
TG 


3.2.2 Editing the .ODL File for Media Resident Forms 


Your application must reference the PRO/FMS-11 Form Driver, 
either the non-debug version (FDV) or the debug version (FDVDBG). 
To do this, edit the .ODL file to include the Form Driver as part 
of the root segment of the program, concatenated with the object 
module. 


For example, to include the non-debug Form Driver in a 
BASIC-PLUS-2 .ODL file, change the line containing .ROOT from 
this: 

ROOT BASIC2-RMSROT-USER,RMSALL 
to. this: 

~-ROOT BASIC2-RMSROT-USER-FDV,RMSALL 
In addition to including the Form Driver (either FDV or _ FDVDBG) 
as part of the line containing .ROOT, you must insert a new FDV: 


.FCTR line after the LIBR: line of your ODL file. Examples of 
the FDV: .FCTR lines for each Tool Kit language follow. 
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BASIC-PLUS-2 

For the non-debug version of the Form Driver, add the line: 
FDV: .FCTR LB:[1,5]HLLBP2-LB:[1,5]FDV/LB 

For the debug version of the Form Driver, add the line: 


FDV: .FCTR LB:[{1,5]HLLBP2-LB:[1,5]FDVDBG/LB 


COBOL-81 


Refer to Section 7.2 for more information and sample 
programs. In most cases, you should build with the HLLCOB 
(COBOL high level language FMS support) module. (This means 
that calls to FDV in your application pass string parameters 
without delimiters BY DESCRIPTOR. ) 


If you use the non-debug version of the Form Driver, add the 
line: 


FDV: .FCTR LB:[1,5]HLLCOB-LB:[1,5]FDV.OLB/LB 


If you use the debug version of the Form Driver, add the 
line: 


FDV: .FCTR LB:[{1,5]HLLCOB-LB:[1,5]FDVDBG.OLB/LB 


If, however, your COBOL program calls FDV only BY REFERENCE 
(the default), and, therefore, has delimiters on the string 
parameters (for example, for migrated PDP-11 COBOL V4.0 
programs), you need to build with the HLLCBL module. 


If you use the non-debug version of the Form Driver, add the 
line; 


FDV: .FCTR LB:[{1,5]HLLCBL-LB:[1,5]FDV.OLB/LB 


If you use the debug version of the Form Driver, add the 
line: 


FDV: .FCTR LB:[{1,5]HLLCBL-LB:[1,5]FDVDBG.OLB/LB 
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FORTRAN-77 

For the non-debug version of the Form Driver, add the line: 
FDV: .FCTR LB:[1,5]HLLFOR-LB:[1,5]FDV/LB 

For the debug version of the Form Driver, add the line: 


FDV: .FCTR LB:[1,5]HLLFOR-LB:[1,5]FDVDBG/LB 


MACRO-11 

For the non-debug version of the Form Driver, add the line: 
FDV: .FCTR LB:[{1,5]FDV/LB 

For the debug version of the Form Driver, add the line: 


FDV: .FCTR LB:[{1,5]FDVDBG/LB 


PASCAL 
PASCAL uses the FORTRAN version of the PRO/FMS-11 Form 
Driver. For the non-debug version of the Form Driver, add 
the line: 

FDV: .FCTR LB:[{1,5]HLLFOR-LB:[1,5]FDV/LB 


For the debug version of the Form Driver, add the line: 


FDV: .FCTR LB:[1,5]HLLFOR-LB:[1,5]FDVDBG/LB 
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3.2.3 Editing the .ODL File For Memory Resident Forms 


If you use memory resident forms with the object module version 
of the Form Driver, you must add the object module that contains 
the form data (FORMS) to the .ODL file. For example, to use 
memory resident forms in a BASIC-PLUS-2 .ODL file, change the 
FDV: .FCTR line from this: 7 


FDV: .FCTR LB:[1,5]HLLBP2 - LB:[{1,5]FDV/LB 
Co “Enis: 
FDV: -FCTR LB: [ 1, 5 ]HLLBP2 - LB:[1, 5 ]FDV/LB - FORMS 


where FORMS is the name of the object ate created by the Forms 
Utility (PROFUT). | 


3.3 EXAMPLE FILES USING THE OBJECT MODULE LIBRARY 


The following example shows an .ODL file before and after 
editing. The original .ODL file for a BASIC-PLUS-2 application 
named "BASDEM" would look like this: 


| .ROOT BASIC2-RMSROT-USER, RMSALL 
USER: .FCTR SY:BASDEM-LIBR 
LIBR: .FCTR LB:[{1,5]PBEOTS/LB 
@LB:(1,5]PBEIC1- | ? 
@LB: [1,5]RMSRLX 
| .END 


Edited to reference the non-debug version of the PRO/FMS-1i1 Form 
Driver, the BASIC-PLUS-2 .ODL file would look like this (new 
lines appear with an asterisk): 


* .ROOT BASIC2-RMSROT-USER-FDV, RMSALL 
USER: .FCTR SY:BASDEM-LIBR 
LIBR: .FCTR LB:[1,5]PBEOTS/LB 

* FDV: .FCTR LB:[{1,5]HLLBP2-LB:[1,5]FDV/LB 


@LB:{1,5]PBEIC1 
@LB:({1,5]RMSRLX 
. END 


EXAMPLE FILES USING THE OBJECT MODULE LIBRARY 


The debug version of the edited BASIC-PLUS-2 .ODL would look like 
this: 


~ .ROOT BASIC2-RMSROT-USER-FDV,RMSALL 
USER: -FCTR SY:BASDEM-LIBR 
LIBR: wP CTR: LB el ,5]PBEOTS LB 

* FDV: -FCTR LB:[1,5]HLLBP2-LB:[{1,5]FDVDBG/LB 


@LB:[{1,5])PBEIC1 
@LB:[{1,5]RMSRLX 
. END 


See the programs in Chapter 7 of this manual for sample edited 
-ODL files for other languages. 


3.4 CHANGE IN FLOPEN 


Before V2.0 of PRO/FMS-11, the Form Driver call to FLOPEN always 
returned a successful status. In V2.0 and later, FLOPEN returns 
the correct status. Refer to the FMS-11/RSX Software Reference 
Manual for the correct status values. Use the FSTAT call to 
check the file’s status when issuing calls. 
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CHAPTER 4 
FORM DRIVER CLUSTER LIBRARIES 


Starting with v2.0 of the Tool Kit, the PRO/FMS-11 Form Driver is 
available in two cluster libraries: 


@e A non-debug version named FMSRES which comes with P/OS. 


@ A debug version named FMSDBG. This cluster library is 
Shipped with the Tool Kit on the diskette labelled PRO/APP 
DSKT BLDR. See Chapter 6 for installation of this library. 


The V1.7 object module Form Driver will continue as part of the 
Host Tool Kit for backward compatibilty. The new functions 
described in this chapter and the changes to the key function 
correlation exist only in the cluster libraries. Also, DIGITAL 
will enhance only the cluster libraries, providing support’ to 
V1.7 of the object module Form Driver. 


Existing applications will run as they currently do. In order to 
take advantage of the new functions, however, you must link your 
application with the new cluster library. Source code changes 
are only necessary to take advantage of the new FNKON and FNKOFF 
functions. 


4.1 NEW CALLS TO THE CLUSTER LIBRARY 


The two new calls to the Form Driver (for higher level languages) 
are FNKON and FNKOFF. For MACRO programmers, the new function 
codes are FON (for FNKON) and FOF (for FNKOF). 


NEW CALLS TO THE CLUSTER LIBRARY 


4.1.1 FNKON - Turn On Function Key Processing 

This call turns on function key processing. If you press a 
function key that PRO/FMS-11 doesn’t use for its editing and form 
control functions, the terminator value for that function key is 
returned to the calling program. 

BASIC-PLUS-2 and FORTRAN call: 

CALL FNKON 

COBOL call: 

CALL "FNKON" 
MACRO-11 call: 

SFDV ARG=arglst, FNC=FON, REQ=reqlst 
Table 4-1 lists the returned status values and codes for’ the 


FNKON call. 


Table 4-1: Returned Status Values and Codes for FNKON Call 


Status Value Status 


High-Level Code 
Languages Macro-11 Meaning 
d FSSSUC Successful completion 
-20 none Wrong number of arguments in call 
(High-level languages only) 
-21 none Impure area not yet initialized 


(High-level languages only) 


NEW CALLS TO THE CLUSTER LIBRARY 


4.1.2 FNKOFF - Turn Off Function Key Processing 


This cal 


1 turns off function key processing. If the 


terminal 


operator presses one of the function keys that PRO/FMS-11 doesn’t 


recogniz 


e, the terminal bell rings. 


BASIC-PLUS-2 and FORTRAN call: 


CALL FNKOFF 


COBOL calls: 


CALL "F 
MACRO-11 
SFDV 


Table 4- 
FNKOFF c 


Table 4-2: 


NKOFF" 
calls: 
ARG=arglst, FNC=FOF, REQ=reqlst 


2 lists the returned status values and codes 
all. 


Status Value Status 


High-Level Code 
Languages Macro-1il1 Meaning 
1 FSSSUC Successful completion 
~20 none Wrong number of arguments in call 
(High-level languages only) 
-21 none Impure area not yet initialized 


(High-level languages only) 


Returned Status Values and Codes for FNKOFF Call 


the 


NOTE 


The call to the Form Driver to process’ field 
terminators (for example, FPFT) returns the value 
of an undefined terminator if one of the’ special 
function key terminators is passed to it. These 
function key terminators have no meaning to 
PRO/FMS-11. 


LK201 FUNCTION KEY TERMINATOR VALUES 


4.2 LK201 FUNCTION KEY TERMINATOR VALUES 


The PRO/FMS-11 Cluster Libraries include support to return most 
of the LK201 function keys as terminators. 


To use this new capability, you must change your source code. and 
link with the cluster libraries. If you do not want to use this 
new capability, you can still build the application against the 
PRO/FMS-11 cluster libraries. The default for function key 
processing does not return the function keys as terminators. 


If the current mode is set to pass back function keys, the form 
driver returns the function key to the application in the 
terminator variable. However, if the current mode is to disallow 
function keys, the form driver rings the terminal bell when the 
terminal operator presses a function key. 


Table 4-3 lists the terminators for the LK201 function keys. All 
key values are in decimal. 


Table 4-3: Function Key Terminator Values 


PRO/FMS-11 V2.0 Keycode Name 
Professional High-Level Macro Global 
Label Strip Languages Symbols 
E1 (Find) 33 FTSFND 
E2 (Insert Here) 34 FTSINS 
E3 (Remove) Bye. FTSRMV 
E4 (Select) 36 FTSSEL 
E5 (Previous Screen) 34 FTSPRS 
E6 (Next Screen) 38 FTSNXS 
Fi (Hold Screen) * * 
F2 (Print Screen) * * 
F3 (Break) 46 FTSBRK 
F4 (Set-Up) 47 FTSSET 


LK201 FUNCTION KEY TERMINATOR VALUES 


aia 


PRO/FMS-11 V2.0 - Keycode Name 
Professional High-Level Macro Global 
Label Strip Languages Symbols 
F5 (F5) 48 FTSF5K 
F6 (Interrupt) * * 
F7 (Resume) 50 FTSRSM 
F8 (Cancel) Oe FTSCAN 
F9 (Main Screen) 52 FTSMSC 
F10 (Exit) 3 FTSEXI 
F1ii (Esc) 55 FTSF11 
F12 (Bs) 2 FTSPRV 
F13 (Lf) * x 
F1i4 (Addtnl Options) 58 FTSAOP 
Help . * 
Do 0 FTSNTR 
F17 63 FTSF17 
F18 64 FTSF18 
F19 65 FTSF19 
F20 66 PISE2ZO 


* Function values are not returnable to the application. 
NOTE 


Under certain circumstances the following two 
keys are not returned to the application. If the 
current displayed form is an FMS or FDT help 
form, the RESUME and NEXT SCREEN key are not 
returned. Instead, the RESUME key signals’ that 
the terminal operator has completed the help 
function. The NEXT SCREEN key displays the next 
HELP form, if any. 


MAPPING FIELD TERMINATORS AND EDITING FUNCTIONS 


4.3 MAPPING FIELD TERMINATORS AND EDITING FUNCTIONS 


The Cluster Libraries use different keys for the field 
terminators and editing functions than the object module version. 
These changes make PRO/FMS-11 more compatible with VAX-11 FMS. 


Tables 4-4 and 4-5 show the differences between the cluster 


library and object module version of the PRO/FMS-11 Form Driver’s 
mapping of function keys. 


Table 4-4: Mapping Function Keys - All Regions 


Object Module Cluster Libraries 
Function Form Driver Form Driver 
Move to Previous Field TAB, F11 TAB 
Move to Next Field Faz Fi2 (BS) 
Erase Field Remove F13 (LF) 
Insert F1i3 * PF1/PF3 
Overstrike F13 * PF3 
Help HELP PF2, HELP 
Repaint Screen B20 <CTRLSW>,;, <CTRL/R> 


* Toggles current mode 
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MAPPING FIELD TERMINATORS AND EDITING FUNCTIONS 


Table 4-5: Mapping Function Keys - Scrolled Regions 


Object Module Cluster Libraries 
Function Form Driver Form Driver 
Exit Field Backward F17 PF1/Up Arrow 
Exit Field Forward F18 PF1/Down Arrow 


4.4 LINKING WITH THE CLUSTER LIBRARIES 


Before you can link your program with the cluster library, you 
must perform the preliminary steps described in Section 3.2. 
Then you can edit your command (.CMD) and descriptor (.ODL) files 
to include the cluster library Form Driver. 

The following sections describe how to edit the .CMD and .ODL 


files using the Basic-Plus-2 example "BASDEM" listed in Section 
32 ee 


4.4.1. Editing the .CMD File 


Edit the "ASG" lines and extend section file (EXTSCT) as 
described in section 3.2.1. 


Next, find the line: 
CLSTR = PBESML,RMSRES, POSRES:RO 


Modify it to include the PRO/FMS-11 cluster library (for the 
*non-debug version): 


CLSTR = PBESML,FMSRES,RMSRES, POSRES:RO 
Or (for the debug version): 


CLSTR = PBESML,FMSDBG,RMSRES, POSRES:RO 


LINKING WITH THE CLUSTER LIBRARIES 


4.4.2 Editing the .ODL File for Media Resident Forms 

Edit the .ROOT line to include either the non-debug (FDV) or 
debug (FDVDBG) version of the Form Driver, just as in Section 
Se oee 


However, the .FCTR line is different for the cluster library. 
After the LIBR: line, insert the following .FCTR line: 


FDV: .FCTR LB:[1,5]HLLBP2 


4.4.3 Editing the .ODL File for Memory Resident Forms 


If you want to use memory resident forms with the cluster 
library, edit the .FCTR line as follows: 


For the non-debug cluster library, change the line to read: 
FDV: .FCTR LB:[{1,5]HLLBP2 - LB:[{1,5]SYSLIB/LB:FDVDAT - FORMS 


where FORMS is the object module created by the Forms Utility 
containing your forms. 


For the the debug cluster library, change the line to read: 
FDV: .FCTR LB:[{1,5]HLLBP2 - LB:[{1,5]SYSLIB/LB:FDVDBG - FORMS 


where FORMS is the object module created by the Forms Utility 
containing your forms. 


4.4.4 Editing Your Installation (.INS) File 


Add the appropriate line to your application installation (.INS) 
file. 


If you built against the non-debug cluster library, add _ the 
following line: 


INSTALL [ZZSYS]FMSRES.TSK/LIBRARY 


If you built against the debug cluster library, add the following 
line: 


INSTALL [Z2ZSYS ]FMSDBG.TSK/LIBRARY 


LINKING WITH THE CLUSTER LIBRARIES 


NOTE 


Remember--you can build against a maximum of six 
cluster libraries. 


4.5 EXAMPLE FILES USING THE CLUSTER LIBRARY 


The following is the BASIC-PLUS-2 example .CMD file edited to 
link the application with the non-debug version of the PRO/FMS-11 
cluster library. (Changed lines appear with an asterisk.) 


SY:BASDEM/CP/-FP, BASDEM/-SP=SY:BASDEM/MP 
TASK = BASDEM 
UNITS = 19 
* ASG =. TI21321525 
* ASG = SY +1*°62728:9210 2112212 
EATTSK= 952 
* CLSTR=PBESML,FMSRES, POSRES, RMSRES: RO 


EXTSCT=MN_SBUF:0 >STATIC SINGLE CHOICE MENU 
EXTSCT=DM_SBUF:0 >DYNAMIC SINGLE CHOICE MENU 

x EXTSCT=HL_SBUF:3500 ;HELP TEXT/MENU 
EXTSCT=MM_SBUF:0 *MUTLI-CHOICE MENU 
EXTSCT=FL_SBUF:0 >FILE SELECTION/SPECIFICATION 
GBLDEF=MN_SLUN: 20 *MENU FRAME FILE 
GBLDEF=HL_ SLUN: 21 >HELP FRAME FILE 
GBLDEF=MS_SLUN:16 *>MESSAGE FRAME FILE 
GBLDEF=TT_S$LUN:15 >TERMINAL I/O EVENT FLAG 
GBLDEF=MB_SLUN: 23 >MESSAGE/STATUS DISPLAY 
GBLDEF=WC_SLUN: 22 >DIRECTORY SEARCHES FOR OLDFIL AND NEWFILE 
GBLDEF=TT_SEFN:1 °I/O EVENT FLAG 
i 


The following is the BASIC-PLUS-2 example .ODL file modified to 
link the application with the non-debug version of the PRO/FMS-11 
cluster library. 


* .ROOT BASIC2-RMSROT-USER-FDV, RMSALL 
USER: .FCTR SY:BASDEM-LIBR 
LIBR: .FCTR LB:[{1,5]PBEOTS/LB 

* FDV: .FCTR LB:{1,5]HLLBP2 


@LB:{1,5]PBEIC1 
@LB:{1,5]RMSRLX 
. END 
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CHAPTER 5 
ENHANCEMENTS TO PRO/FMS-11 HELP FACILITIES 


PRO/FMS-11 applications can use P/OS help frames in addition to 
regular FMS help forms. 


When the terminal operator presses the HELP key while uSing an 
FMS form, help appears in the following order: 


1. A one-line help message for the current field. 
2. The help form specified by the current form. 


3. The P/OS help frame specified in the Named Data section 
of the current form. 


When the terminal operator presses the HELP key again or presses 
the NEXT SCREEN key, help appears in this order: 


1. The help form specified by the current form. 


2. The P/OS help frame specified in the Named Data section 
of the last form displayed. 


HELE FACILITIES 


Follow these steps to provide P/OS Help Services with PRO/FMS-11: 
Step 1: Create Help Frame Files 


Use the Frame Development Tool (FDT) to create help frame files. 
See the Toolkit Reference Manual for details. 


Step 2: Run PRO/FMS-11 Forms Editor 


Run the PRO/FMS-11 Forms Editor (PROFED) and retrieve the form. 
Enter the NAME command. PROFED will display the Named Data Entry 
Form. 


Step 3: Enter .HELP. 


In Named Data Entry Form, enter .HELP. in the Name field; and 
the frame identifier (frameid) in the Data field. 


Step 4: Edit the Source Code 
Edit the source code so that it includes calls to P/OS Help 


Services to open the Help file before it calls the Form Driver, 
and to close the HELP file before the program exits. 


Step 5: Edit Command File 


Make sure you edit the command file according to Section 3.2.1. 


Step 6: Run PRO/FMS-11 Forms Utility 


Run the PRO/FMS-11 Forms Utility (PROFUT) and replace the old 
form with the new one. 


A completed Named Data Entry form would look something like this: 


Name Data 


-HELP. INFO2 


CHAPTER 6 
INSTALLING OPTIONAL APPLICATIONS 


Several optional applications are on the diskette labelled 
PRO/APP DSKT BLDR, supplied with both the Host Tool Kit and the 
PRO/Tool Kit. Install and remove them as needed. 

To use the Debug Form Driver, copy the following files: 

@® FMSDBG.TSK 

@ FMSDBG.MSG 


To run the example programs listed in Chapter 7, copy the 
following files: 


® DEMLIB.FLB 
@® LIBRARY1.FLB 
@® LIBRARY2.FLB 


Copy these files to your Professional from the diskette labelled 
PRO/APP DSKT BLDR as follows. 


1. Log into a system manager’s account or a privileged account. 

2. Insert the diskette into a diskette drive slot. 

3. Copy the files as follows, using either PRO DCL or P/OS File 
Services. All files are in directory [PROFMS] on the volume 
labelled TOOLKIT. 
Copy TOOLKIT: [PROFMS 


Copy TOOLKIT: [{PROFMS]FMSDBG.MSG to LB:({001002] 


: [ ]FMSDBG.TSK to LB:[ZZSYS] 
: [ ] 
Copy TOOLKIT: [PROFMS]DEMLIB.FLB to LB:[001002] 
> [ ] 
> [ ] 


Copy TOOLKIT: [PROFMS]LIBRARY1.FLB to LB:[001002] 
Copy TOOLKIT: [PROFMS]LIBRARY2.FLB to LB:[{001002] 


The optional files are now on your system. 
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CHAPTER 7 
SAMPLE PRO/FMS-11 PROGRAMS 


Sample PRO/FMS-11 programs for each of the Tool Kit languages are 
part of the Tool Kit in directory LB:[1,5]. 


Copy the files to your own area. The accompanying forms are in 
the file DEMLIB.FLB on the PRO/APP DSKT BLDR diskette distributed 
with both the Host Tool Kit and the PRO/Tool Kit. Use the 
instructions in Chapter 6 to copy the file to your Professional. 


This section contains listings of the sample programs, with any 
restrictions or comments you may need. 


7.1 TOOL KIT BASIC-PLUS-2 


BASIC-PLUS-2 programs can use either the Object Module Form 
Driver or Cluster Library Form Driver. 


7.1.1 BASDEM 


The first BASIC-PLUS-2 program, BASDEM, is an FMS-11/RSX generic 
program modified to run on P/OS. It demonstrates use of an 
Object Module Form Driver. 


TOOL KIT BASIC-PLUS-2 


100 REM 

l10 REM BASDEM.B2S 

120 REM 

130 REM 

140 REM COPYRIGHT <C> 1979 BY . 
150 REM DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 
160 REM 

170 REM 

180 REM MODULE: BASDEM 

190 REM 

200 REM VERSION: VO01.00 

210 REM 

220 REM AUTHOR: MEGAN 

230 REM 

240 REM DATE: 10-APRIL-79 

245 REM 

250 REM MODIFIED: 

255 REM 

257 REM DATE: 1L11-MARCH-1983 Changed Command and Odl file 
260 REM 

270 REM BASIC-PLUS-2 V2.0 demonstration program for FMS illusrating a 
280 REM simple form-driven, data entry application. 

290 REM 

292 REM Below is an example of a command and ODL file to build 

294 REM this demonstration program. 

296 REM 

298 REM ; 

300 REM ; BASDEM.CMD 

301 REM SY:BASDEM/CP/FP,BASDEM/-SP=SY:BASDEM/MP 

302 REM TASK = BASDEM 

303 REM UNITS = 19 

304 REM ASG = T1:13:15:5 

305 REM ASG = SY¥:1:6:7:8:9:10:11:12 

306 REM EXTTSK = 952 

307 REM CLSTR=PBESML, POSSUM, POSRES,RMSRES:RO 


308 REM EXTSCT=MNSBUF:0 ,;SINGLE CHOICE MENU 
309 REM EXTSCT=DMSBUF:0 ;DYNAMIC SINGLE CHOICE 
310 REM EXTSCT=HLSBUF: 3410 ;HELP 

312 REM EXTSCT=MMSBUF:0 ;MULTI-CHOICE MENU 

313 REM EXTSCT=FLSBUF:0 ;MULTI-CHOICE MENU 

314 REM GBLDEF=MNSLUN: 22 ;MENU 

315 REM GBLDEF=HLSLUN: 20 ;HELP 

316 REM GBLDEF=MSS$LUN:21 ;MESSAGE 

317 REM GBLDEF=TTSLUN:15 7;TERMINAL I/O LUN 

318 REM GBLDEF=WCSLUN: 23 ;FILE LUN 

319 REM GBLDEF=TTSEFN:1 ;I/O EVENT FLAG 

320 REM // 

321 REM 

421 REM ; 

422 REM ; TKB overlay descriptor language file to build BASDEM 
423 REM ; 

424 REM -ROOT BASIC2-RMSROT-USER-FDV,RMSALL 
425 REM USER: -FCTR SY:BASDEM-LIBR 

426 REM LIBR: .FCTR LB:[{1,5]PBEOTS/LB 

427 REM FDV: .FCTR LB:[{1,5]HLLBP2-LB:[{1,5]FDV/LB 


428 REM @LB:[1,5]PBEICIL 

429 REM @LB:[{1,5]RMSRLX 

430 REM . END 

440 REM 

450 REM 

500 REM Defined variables. 
501 DIM 1%(1500 
502 C$=STRINGS ( 
503 F1$=STRINGS 
504 F2$=STRINGS 
505 AS=STRINGS ( 


RQ -—™ -—™ Ry — 


TOOL KIT BASIC-PLUS-2 


510 REM VARIABLE DESCRIPTION 

520 REM 

530 REM C$ Choice specified by the user 
550 REM S% FDV status 

560 REM T% Terminator code 

570 REM F1$ The initial form name of the series 
580 REM F2$ The output file name 

590 REM F3$ The current form name 

600 REM 

610 REM Initialize Form Driver and open library. 

620 REM 

625 CALL WTQIO(768%,5%,5%) 

630 CALL FINIT(I%(),1500%) 

635 CALL FLCHAN(6%) \ GOSUB 2000 

640 CALL FLOPEN ("LB:[{1,2]DEMLIB") \ GOSUB 2000 

650 REM 

660 REM Show the menu form for operator to select the data 
670 REM collection series. Get the first form name from 

680 REM named data. 

690 REM 


700 CALL FCLRSH("FIRST") \ GOSUB 2000 

710 CALL FGET(CS,T%,"CHOICE") \ GOSUB 2000 

720 CALL: FNDATA(CS,FIS).\ CALL. FSTAT(S#) \. TF 63504. GO TO. 770 
730 CALL FPUTL("Illegal choice") \ GO TO 710 


740 REM 

750 REM If form name is ".EXIT.", terminal operator is done. 
760 REM 

710 IF FLS=". EXIT." Go-To “L290 

780 REM 


790 REM Get the output file name from named data and open it. 
800 REM 

810 CALL FNDATA(TRMS$(C$)+"F",F2$) 

820 OPEN F2$ FOR OUTPUT AS FILE #1%, FILESIZE 10% 

830 REM 

840 REM THIS IS THE DATA COLLECTION LOOP 

850 REM 

860 REM Set current form = first form in series. 

870 REM 

880 F3S$=F1$ 

890 REM 

900 REM Show the form. 

910 REM 

920 CALL FCLRSH(F3$) \ GOSUB 2000 

930 REM 

940 REM Get data for current form and output it. 

950 REM 

960 CALL FGETAL(A$) \ GOSUB 2000 

970 PRINT #1%,TRMS(AS$) 

980 REM 

990 REM Get name of next form. If found, loop for more data. 
1000 REM 

1010 CALL FNDATA("NXTFRM",F3$) 

1020 IF F3$<>".NONE."GO TO 920 

1030 REM 

1040 REM End of the form series. Show last to determine if 
1050 REM we’re done or not. 

1060 REM 

1070 CALL FCLRSH("LAST") \ GOSUB 2000 

1080: “CALL: FGET (CS ,T%,"CHOTCE")- \. GOSUB 2000 


1090 REM 

1100 REM If response = "1", repeat data collection loop. 
1110 REM 

1120 IF c$="1" GO TO 880 

1130 REM 


1140 REM Get named data corresponding to response. 

1150 REM Get field again if illegal response. 

1160 REM Close output file for valid response other than l. 
1170 REM 


1180 
1190 
1200 
21:0 
220 
L220 
1240 
1250 
L260 
b270 
1280 
1290 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
20°70 
9999 


TOOL KIT BASIC-PLUS-2 


CALL FNDATA(CS$,F3$) \ CALL FSTAT(S%) \ IF S%>0% GO TO 1200 
CALL FPUTL(Illegal choice") \ GO TO 1080 


CLOSE <#1% 

REM 

REM If named data is ".EXIT.", terminal operator is done, else 
REM display menu form again. 

REM 

LP R35 <> “cE RITA GO. To. 700 

REM Close form library and exit. 

REM 

REM 

CALE. FLGLOS- \ GO “TO 3999 

REM 

REM Output message and exit 1f I/O error returned from 
REM form Driver. This is the only error expected in a 
REM debugged application. 

REM 

CALL FSTAT(S@) 

IF S$%>0% THEN RETURN 

CALL FPUTL("Fatal I/O Error") \ STOP 

END 


7.1.2 MULLIB 


The following BASIC-PLUS-2 program, MULLIB, demonstrates use 
the Cluster Library Form Driver. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
21:0 
22.0 
230 
257 
260 
279 
280 
290 
292 
294 
296 
29:8 
300 
S01 
3:0:2 
303 
304 
3:05 
306 
307 
308 
309 
310 
Sik 
SZ 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


MULLIB.~B2S 


COPYRIGHT (Cy )1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


MODULE * MULLIB 


VERSION: VO1.00 


AUTHOR: 

DATE: 8/4/84 
BASIC- Plus- 2 V2.0 demonstration program for FMS illustrating 
access to multiple libraries at the same time. 


Below is an example of a command and ODL file to build 
this demonstration program. 


. MULLIB.CMD 
SY:MULLIB/CP/-FP,MULLIB/-SP=SY:MULLIB/MP 
TASK = MULLIB 

UNLESS: =. 19 

ASG = Ties 2 1 eS 

ASG = SY 21262 758 so Ot Pee 

EXTTSK= 952 
CLSTR=PBESML,FMSRES, POSRES, RMSRES: RO 


EXTSCT=MNSBUF:0 ; STATIC SINGLE CHOICE MENU 
EXTSCT=DMSBUF:0 ,DYNAMIC SINGLE CHOICE MENU 
EXTSCT=HLSBUF: 3500 ;HELP TEXT/MENU 
EXTSCT=MMSBUF:0 ,;MUTLI-CHOICE MENU 
EXTSCT=FLSBUF:0 ,;FILE SELECTION/SPECIFICATION 


of 


TOOL KIT BASIC-PLUS-2 


313 REM GBLDEF=MNSLUN:1 >MENU FRAME FILE 

314 REM GBLDEF=HLSLUN:0 >;HELP FRAME FILE 

315 REM GBLDEF=MS$LUN:10 ;MESSAGE FRAME FILE 

316 REM GBLDEF=TTSLUN:15 >TERMINAL I/0 

317 REM GBLDEF=MBSLUN:1l ;MESSAGE/STATUS DISPLAY 
318 REM GBLDEF=WCSLUN:12 ;DIRECTORY SEARCHES FOR OLDFIL AND NEWFILE 
319 REM GBLDEF=TTSEFN:1 ;I1/0 EVENT FLAG 

320 REM // 

321 REM 

421 REM ; 

422 REM ; TKB command file to build MULLIB 

423 REM ; 

424 REM .ROOT BASIC2-RMSROT-USER-FDV,RMSALL 

425 REM USER: .FCTR SY:MULLIB-LIBR 

426 REM LIBR: .FCTR LB:[1,5]PBEOTS/LB 

427 REM FDV: .FCTR LB:[{1,5]HLLBP2 


428 REM @LB:[1,5]PBEICI 
429 REM @LB:[(1,5]RMSRLX 


430 REM - END 

440 REM 

450 REM 

500 REM Defined Variables 
510 REM 


520 DIM 11%(1000) 

530 DIM 12%(1000) 

540 CS=STRINGS(2%,32%) 
550 AS=STRINGS(100%,43%) 


599 REM 

600 REM VARIABLE DESCRIPTION 

610 REM 

620 REM I1% First Impure Area 

630 REM I2% Second Impure Area 

640 REM C$ Choice specified by the user 
650 REM AS Data returned from the form 
699 REM 

700 REM Initialize Form Driver and open first library 
710 REM 


720 CALL WTQIO (768%,5%,5%4) 
730 CALL FINIT (11%(),20003%) 
740 CALL FLCHAN (6%) \ GOSUB 2000 

750 CALL FLOPEN ("LB:({1,2]LIBRARY1") \ GOSUB 2000 
760 REM 

770 REM Show the first form from the first library 
780 REM 

790 CALL FCLRSH ("FIRST") \ GOSUB 2000 

800 CALL FGETAL (A$) \ GOSUB 2000 

810 REM 

820 REM Now open the second library using channel 7 
830 REM . 
840 CALL FINIT ( 


I ),2000%) 
850 CALL FLCHAN ( 
( 


( 
) \ GOSUB 2000 
860 CALL FLOPEN "LB:({1,2]LIBRARY2") \ GOSUB 2000 
870 REM 
880 REM Show the first form from the second library 
890 REM 
900 CALL FCLRSH ("FIRST") \GOSUB 2000 
910 CALL FGETAL (A$) \ GOSUB 2000 
1000 REM 
1010 REM Now set the Impure back to the first library and 
1020 REM display another form. 
1020 REM 
1030" “GALE? FINI? 4 


I1% 
1040 CALL FLCHAN ( 
( 
( 


), 1000) 
\ GOSUB 2000 


( 
) 
ECOND") \ GOSUB 2000 
) 


1050 CALL FCLRSH ("S 

1060 CALL FGETAL (AS) \ GOSUB 2000 
1070 REM 

1080 REM Close the first library 
1090 REM 


TOOL KIT BASIC-PLUS-2 


1100 CALL FLCLOS 

1110 REM 

1120 REM Now close the second library 

1130 REM 

1140 CALL FINIT (12%(),1000) 

1150 CALL FLCHAN (7%) 

1160 CALL FLCLOS \ GOTO 9999 

1170 REM 

2000 REM Output message and exit if I/O error returned from 
2010 REM the Form Driver. This is the only error expected ina 
2020 REM debugged application. 

2040 REM 

2050 CALL FSTAT(S%) 

2060 IF $%>0% THEN RETURN 

2070 CALL FPUTL("Fatal I/O Error") \ STOP 

9999 END 


TOOL KIT COBOL-81 


7.2 TOOL KIT COBOL-81 
When calling PRO/FMS-11 from a COBOL-81 program, 


@e Use the By Descriptor argument-passing mechanism for 
character-type parameters. 


@e Use the By Reference argument-passing mechanism for 
numeric-type parameters, such as the starting line parameter 
of FCLRSH or the LUN for the FLCHAN call. 


The ODL file should then use the HLLCOB interface. See Section 
3.2.2 on editing the descriptor file. 


Another option is available, however, which allows all parameter 
passing By Reference, but requires string delimiters on all 
character-type parameters. The following sample programs 
demonstrate each method. 


7.2.1. Passing Variables by Descriptor 


This COBOL program passes data variables by descriptor to the 
Form Driver. (Numeric variables are passed by reference.) It 
uses the interface HLLCOB. 


CBLDESDEM.CBL 


COPYRIGHT (C) 1979 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


MODULE: CBLDESDEM 

VERSION: Vv01.00 

AUTHOR: 

DATE: 1-APRIL-79 

MODIFIED: To run on the Professional 
DATE: 3-MARCH- 83 


COBOL demonstration program for FMS illustrating a 
Simple form-driven, data entry application. This program 
demonstrates the Call By Descriptor method to call the 
Form Driver. 


The following is a brief description on compiling and 
building CBLDESDEM. 


The command to compile the program is: 


MCR PROC81 CBLDESDEM,CBLDESDEM=CBLDESDEM 


ee a a a ee a ee ee ee ee ee ee ee ee ee a ee 
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z Below is an example of a TKB command file to build 

- this demonstration program. 

* 

i ; 

- ; CBLDESDEM.CMD 

* . 

‘ ‘i TKB command file to build CBLDESDEM 

k ° 

* ;TKB COMMAND FILE CREATED ON O1-MAR-83 AT 14:16:02 

- CBLDESDEM/CP/-FP,CBLDESDEM/-SP=CBLDESDEM/MP 

* TASK=CBLDEM 

: CLSTR=C81LIB,POSRES,RMSRES:RO 

* e 

e EXTSCT=MNSBUF:0 ;SINGLE CHOICE MENU 

. EXTSCT=DMSBUF:0 ;DYNAMIC SINGLE CHOICE 

* EXTSCT=HLSBUF: 3410 ; HELP 

* EXTSCT=MSSBUF: 3100 ;MESSAGE 

7 EXTSCT=MMSBUF:0 ;MUTLI-CHOICE MENU 

* EXTSCT=FUSBUF 20 ;FILE SELECTION FOR OLDFIL 
;AND NEWFIL 

. GBLDEF=MNSLUN: 22 ;MENU 

bs GBLDEF=HLSLUN: 20 ; HELP 

- GBLDEF=TTSLUN:15 ;TERMINAL I/0 

- GBLDEF=WCS LUN: 23 

* GBLDEF=TTSEFN:1 ;I/O EVENT FLAG 

* ° 

* UNITS = 19 

- AS G- Tis oS 5 

ig ASG =. S726¢ eee Os Oe be Le 

: jf 

* 
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x 

‘i Below is an example ODL file to build the Demonstration Program 

& 

;MERGED ODL FILE CREATED ON O1-MAR-83 AT 14:16:02 

Zi @CBLDESDEM.SKL 

x SCOBJ$: .FCTR CBLDESDEM.OBJ 

* @LB:[1,1]RMSRLX.ODL 

* .NAME RMSSTR 

* RMSTRS$: .FCTR RMSSTR-RMSALL 

* RMSS$: -FCTR RMSROT 

* SCUIBS: <FPCTR CBs tesla 7 Ls 

x OBJRTS: .FCTR SCOBJS-FDV-SCLIBS-RMSS 

* FDV: .FCTR LB:[(1,5]HLLCOB-LB:[(1,5]FDV.OLB/LB 

* -ROOT OBJRTS,RMSTR$ 

* - END 

k 

* 


IDENTIFICATION DIVISION. 
PROGRAM-ID. CBLDEM. 


TEST PROGRAM 


e Fee OF 


ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT OUTPUT-FILE ASSIGN TO “SY:". 
DATA DIVISION. 

PILE SECTION. 


TOOL KIT COBOL-81 


Create a sequential file for output of form data. 


D OUTPUT-FILE 
LABEL RECORDS ARE STANDARD 
VALUE OF ID IS ANSWER2. 

01 POOL PIC X(256). 


* Data follows. 
* 


WORKING-STORAGE SECTION. 


* System form library. 

01 DEMLIB PLO X25) VALUE. Bs [2 2). DEMEIB.PLB” : 
x Logical unit number for FMS library file. 

O01 LUN PIC 99 COMP VALUE 6. 

* Impure area. 

O01 IMPURE PIC xX(2000). 

. Size of impure area. 

O01 ISIZE PIC 9999 COMP VALUE 2000. 

Ol INUM PIC 999 COMP VALUE 768. 

Ol UN PIC 9 COMP VALUE 5. 

* 

* Special work area. 

x ANSWER] -> The initial form name of the series. 
* ANSWER2 -> The output file name. 

. ANSWER3 -> The current form name. 

k 

Ol ANSWERI. 


02 PART PIC X(6). 

02: PILUER PIC xt 7) 
Ol ANSWER2 PLC (13): 
Ol ANSWER3. 

02 PART PIC X(6). 

02 FILLER PIC X(7). 


& 


* Fieldf used to create a field name. 
x 
Ol. FIELDF. 
O02 DAT PIC xX. 
Q2- FILLER: PIC xX (35). VALUE CF WY 
01 FIELD PIC MTG). 


= Status 
* 
Ol STAT PIC 99 COMP. 


O01 STAT2 PIC 99 COMP. 
x 


. Error message on program errors. 

* 

Ol ERR1. . 
02 PARTI Pic X({(23) VALUE “FATAL I/O ERROR, STAT=". 
02 ERR-STAT PIC 22229- DISPLAY. 
02 PART2 pIc *(8) VALUE *",. STAT2=". 


02 ERR-STAT2 PIC 422229- DISPLAY. 
QO1 ILL-CHOICE PIC X(16) VALUE "ILLEGAL CHOICE". 


x 
* 
= FORM DESCRIPTION STARTS HERE 
ke 


* 


COPY "LB:[1,5]DEMLIB.LIB". 


* 


# 
* 
* 


T= 


TOOL KIT COBOL-81 


PROCEDURE DIVISION. 
MAIN-CONTROL SECTION. 


Pl. 
* Attach the terminal. 
CALL "WTQIO" USING INUM, UN, UN. 
e Initialize and open the library. 
CALL "FINIT" USING BY DESCRIPTOR IMPURE, 
BY REFERENCE ISIZE. 
CALL "FLCHAN" USING BY REFERENCE LUN. 
PERFORM STATUS-CHECK. 
CALL "FLOPEN" USING BY DESCRIPTOR DEMLIB. 
PERFORM STATUS-CHECK. 
x Display first form. 
P6 
CALL "FCLRSH" USING BY DESCRIPTOR FORM-FIRST. 
PERFORM STATUS-CHECK. 
Show the menu form for operator to select the data 
x collection series. Get the first form name from 
= named data. 
P2 
CALL "FGET" USING BY DESCRIPTOR D-FIRST-CHOICE, 
BY REFERENCE STAT, 
BY DESCRIPTOR N-FIRST-CHOICE. 
PERFORM STATUS-CHECK. 
MOVE D=FPIRST=CHOLCE TO: FIELD. 
MOVE SPACES TO ANSWER1. 
CALL "FNDATA" USING BY DESCRIPTOR FIELD, ANSWER]. 
CALL "FSTAT" USING BY REFERENCE STAT. 
IF STAT NOT >» QO 
CALL "FPUTL" USING BY DESCRIPTOR ILL-CHOICE 
PERFORM STATUS-CHECK 
GO TO P2. 
k 
* If form name is ".EXIT.", terminal operator is done. 
k 
IF PART OF ANSWER] = ".EXIT." GO TO LIB-CLOSE. 
k 
* Get the output file name from named data and open it. 
k 
MOVE D-FIRST-CHOICE TO DAT OF FIELDF. 
MOVE SPACES TO ANSWER2. 
CALL "FNDATA" USING BY DESCRIPTOR 
FIELDF, ANSWER2. 
PERFORM STATUS-CHECK. 
OPEN OUTPUT OUTPUT-FILE. 
& 
- This is the data collection loop. 
‘ 
P4 
MOVE ANSWERI1 TO ANSWER3. 
Show the form. 
P3 
CALL "FCLRSH" USING BY DESCRIPTOR ANSWER3. 
PERFORM STATUS-CHECK. 
* 
= Get data for current form and output it. 


MOVE SPACES TO POOL. 

CALL "FGETAL" USING BY DESCRIPTOR POOL. 
PERFORM STATUS-CHECK. 

WRITE POOL. 
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Get name of next form. If found, loop for more data. 


MOVE "NXTFRM" TO FIELD. 


CALL "FNDATA" USING BY DESCRIPTOR FIELD, ANSWER3. 
PERFORM STATUS-CHECK. 


IF PART OF ANSWER3 NOT = ".NONE." GO TO P3. 
* 
* End of the form series. Show last to determine if 
a we’re done or not. 
* 
CALL "FCLRSH" USING BY DESCRIPTOR FORM-LAST. 
PERFORM STATUS-CHECK. 
P5. 
CALL "FGET" USING BY DESCRIPTOR D-LAST-CHOICE, 
BY REFERENCE STAT, 
BY DESCRIPTOR N-LAST-CHOICE. 
PERFORM STATUS-CHECK. 
MOVE D-LAST-CHOICE TO FIELD. 
* 
* If response = "1", repeat data collection loop. 
we 
IF FIELD = "1" GO TO P4. 
* 
- Get named data corresponding to response. 
. Get field again if illegal response. 
e Close output file for valid response other than l. 
k 
CALL "FNDATA" USING BY DESCRIPTOR FIELD, ANSWER3. 
CALL "FSTAT" USING BY REFERENCE STAT. 
IF STAT NOT > QO 
CALL "FPUTL" USING BY DESCRIPTOR ILL-CHOICE 
PERFORM STATUS -CHECK 
GO TO P5. 
CLOSE OUTPUT-FILE. 
Pa 
is If named data is ".EXIT.", terminal operator 
* is done, else display menu form again. 
* 
IF PART OF ANSWER3 NOT = ".EXIT." GO TO P6. 
* 
x Close form library and exit. 
* 
LIB-CLOSE. 
CALL “FLCLOS” . 
PERFORM STATUS-CHECK. 
STOP RUN. 
* 
- Output message and exit if I.0 error returned from 
i Form Driver. This is the only error expected ina 
- debugged application. 
k 


STATUS-CHECK SECTION. 


Scl. 
CALL "FSTAT" USING BY REFERENCE STAT, STAT2. 
IF STAT > 0 GO TO SC2. 
MOVE STAT TO ERR-STAT. 
MOVE STAT2 TO ERR-STAT2. 
DISPLAY ERR1 AT LINE 1 AT COLUMN 1, ERASE TO END OF SCREEN. 
DISPLAY "Press RESUME to continue." AT LINE 3 AT COLUMN 1. 
CALL "WTRES". 
STOP RUN. 
SG % 
EXIT. 


TOOL KIT COBOL-81 


7.2.2 Passing Variables by Reference 


This COBOL program passes all variables by reference to the 


Driver, It uses the interface HLLCBL. 


+ OF + OF FF F OF HF F FF FF F HF FF HF HF HR ¥ 
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CBLDEM.CBL 


COPYRIGHT (C) 1979 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


MODULE: CBLDEM 

VERSION: V0O1.00 

AUTHOR: 

DATE: 1-APRIL-79 

MODIFIED: To run on the Professional 
DATE: 3-MARCH - 83 


COBOL demonstration program for FMS illustrating a 
Simple form-driven, data entry application. This COBOL 
example program uses the By Reference method (default) 
for all calls to the Form Driver. 


The following is a brief description on compiling and 
building CBLDEM. 


The command to compile the program is: 
MCR PROC81 CBLDEM,CBLDEM=CBLDEM 


Below 1s an example of a TKB command file to build 
this demonstration program. 


CBLDEM.CMD 


TKB command file to build CBLDEM 


>TKB COMMAND FILE CREATED ON O1-MAR-83 AT 14:16:02 
CBLDEM/CP/-FP,CBLDEM/-SP=CBLDEM/MP 

TASK=CBLDEM 

CLSTR=C81LIB,POSRES,RMSRES:RO 


EXTSCT=MNSBUF:0 ;SINGLE CHOICE MENU 
EXTSCT=DMSBUF:0 ;DYNAMIC SINGLE CHOICE 
EXTSCT=HLSBUF: 3410 aL GP 

EXTSCT=MMSBUF:0 *,MUTLI-=CHOLCE MENU 
EXTSCT=FLSBUF:0 ;MULTI-CHOICE MENU 
GBLDEF=MNSLUN: 22 7MENU 

GBLDEF=HLSLUN: 20 ;HELP 

GBLDEF=MSSLUN: 21 ; MESSAGE 
GBLDEF=TTSLUN:15 ; TERMINAL I/O 
GBLDEF=WCSLUN: 23 


GBLDEF=TTSEFN:1 ;I/O EVENT FLAG 
UNITS = 19 

ASG = TIYA321525 

ASG Sv 26 2728 29210211212 

Tf 


Form 
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is Below is an example ODL file to build the Demonstration Program 
& 

* ;MERGED ODL FILE CREATED ON O1-MAR-83 AT 14:16:02 

* @CBLDEM.SKL 

x SCOBJS: .FCTR CBLDEM.OBJ 

* @LB:[1,1]RMSRLX.ODL 

. .NAME RMSSTR 

* RMSTRS: .FCTR RMSSTR-RMSALL 

s RMSS: -FCTR RMSROT 

* SCLIB$: .FCTR LB:[1,l1]C81LIB/LB 

is OBJRT$: .FCTR SCOBJS-FDV-SCLIBS-RMSS$ 

* FDV:: -FPCTR. LB? {-b, 5 )HLECBL-LEB<s(1,3)FDV.0LB/LE 

: -ROOT OBJRTS ,RMSTRS 

% - END 

* 

k 


IDENTIFICATION DIVISION. 
PROGRAM-ID. CBLDVEM, 


TEST PROGRAM 


+ + + + OF OF 


ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT OUTPUT-FILE ASSIGN TO "SY:". 
DATA DIVISION. 

FILE SECTION. 


x Create a sequential file for output of form data. 
FD OUTPUT-FILE 
LABEL RECORDS ARE STANDARD 


VALUE OF ID IS ANSWER2. 
01 POOL PIC X(256). 


* Data follows. 


WORKING-STORAGE SECTION. 


: System form library. 

01 DEMLIB PIC X(25) VALUE "#LB:[1,2]DEMLIB.FLB#". 
* Logical unit number for FMS library file. 

01 LUN PIC 99 COMP VALUE 6. 

- Impure area. 

01 IMPURE Pie 12000 )% 

* Size of impure area. 

Ol ISIZE PIC 9999 COMP VALUE 2000. 

Ol INUM PIC 999 COMP VALUE 768. 

Ol UN PIC 9 COMP VALUE 5. 

k 

* Special work area. 

* ANSWERI1 -> The initial form name of the series. 
. ANSWER2 -> The output file name. 

. ANSWER3 -> The current form name. 

* 

O01 ANSWERI. 


02 PART PIC. x(6). 

O27 FrPULER PIC: X07 i 
Ol ANSWER2 PIC -K(13))- 
O01 ANSWER3. 

02 PART PIC X(6). 

02 FILLER PIC X(7). 
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* 
* Fieldf used to create a field name. 
* 
O41: FIELDF .. 
02 DAT PIC X. 
02 FILLER PIC X(5) VALUE "F ioe 
Ol FIELD PIC X06). 


. Status 

* 

OL STAT PIC: 99 COMP. 
Ol STAT2 PIC 99 COMP. 


* 


x Error message on program errors. 

& 

O01 ERR1. 
02 PARTI PIC X(22) VALUE "FATAL I/O ERROR, STAT=". 
02 ERR-STAT PIC Z2Z229- DISPLAY. 
02 PART2 PIC’ X(¢8) VALUE”, STAT2Z=" 


02 ERR-STAT2 PIC Z2222Z29- DISPLAY. 
QO1 ILL-CHOICE PIC X(16) VALUE "#ILLEGAL CHOICE#". 


FORM DESCRIPTION STARTS HERE 


OPY "LB:{1,5]DEMLIB.LIB". 


+ + + OC) +  F H 


* 


PROCEDURE DIVISION. 
MAIN-CONTROL SECTION. 


Pi 
- Attach the terminal. 

CALL "WTQIO" USING INUM, UN, UN. 
a Initialize and open the library. 

CALL "FINIT" USING IMPURE, ISIZE. 

CALL "FLCHAN" USING LUN. 

PERFORM STATUS-CHECK. 

CALL "FLOPEN" USING DEMLIB. 

PERFORM STATUS-CHECK. 
* Display first form. 
P6 

CALL "FCLRSH" USING FORM-FIRST. 

PERFORM STATUS-CHECK. 
* Show the menu form for operator to select the data 
. collection series. Get the first form name from 
= named data. 
P2 

CALL "FGET" USING 

D-FIRST=CHOLCE, STAT, NeEIRST~ CHOICE... 

PERFORM STATUS-CHECK. 

MOVE D-FIRST-CHOICE TO FIELD. 

MOVE SPACES TO ANSWERI. 

CALL "FNDATA" USING 

FIELD, ANSWERI1. 

CALL "FSTAT" USING STAT. 

IF STAT NOT > 0O 

CALL "FPUTL" USING ILL-CHOICE 

PERFORM STATUS-CHECK 

GO TO P2. 
& 
- If form name is ".EXIT.", terminal operator is done. 


+ Oe OF OF 


+ FF 


+ + + & 
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IF PART OF ANSWER] = ".EXIT." GO TO LIB-CLOSE. 


Get the output file name from named data and open it. 


MOVE D-FIRST-CHOICE TO DAT OF FIELDF. 
MOVE SPACES TO ANSWER2. 
CALL "FNDATA" USING 
DAT OF FIELDF, ANSWER2. 
PERFORM STATUS-CHECK. 
OPEN OUTPUT OUTPUT-FILE. 


This is the data collection loop. 


MOVE ANSWERI1 TO ANSWER3. 
Show the form. 


CALL "FCLRSH" USING ANSWER3. 
PERFORM STATUS-CHECK. 


Get data for current form and output it. 


MOVE SPACES TO POOL. 

CALL "FGETAL" USING POOL. 
PERFORM STATUS-CHECK. 
WRITE POOL. 


Get name of next form. If found, loop for more data. 


MOVE "NXTFRM" TO FIELD. 

CALL "FNDATA" USING 

FIELD, ANSWER3. 

PERFORM STATUS-CHECK. 

IF PART OF ANSWER3 NOT = ".NONE." GO TO P3. 


End of the form series. Show last to determine if 
we’re done or not. 


CALL "FCLRSH" USING FORM-LAST. 
PERFORM STATUS-CHECK. 


CALL "FGET" USING 

D-LAST-CHOICE, STAT, N-LAST-CHOICE. 
PERFORM STATUS-CHECK. 
MOVE D-LAST-CHOICE TO FIELD. 


If response = "1", repeat data collection loop. 
IF FIELD = "1" GO TO P4. 


Get named data corresponding to response. 
Get field again if illegal response. 
Close output file for valid response other than 1. 


CALL "FNDATA" USING FIELD, ANSWER3. 
CALL "FSTAT" USING STAT. 

IF STAT NOT > 0 

CALL "FPUTL” USING ILL-CHOICE 
PERFORM STATUS- CHECK 

GO TO P5. 

CLOSE OUTPUT-FILE . 


If named data is ".EXIT.", terminal operator 
is done, else display menu form again. 


IF PART OF ANSWER3 NOT = ".EXIT." GO TO P6. 


k 


* 


* 
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Close form library and exit. 


LIB-CLOSE. 


+ bt FF 


CALL: “£LCLOS. 
PERFORM STATUS-CHECK. 
STOP RUN. 


Output message and exit if I.0 error returned from 
Form Driver. This is the only error expected ina 
debugged application. 


STATUS-CHECK SECTION. 


S.Cal'< 


SG? 


CALL "FSTAT" USING STAT, STAT2. 
IF STAT > 0 GO TO SC2. 

MOVE STAT TO ERR-STAT. 

MOVE STAT2 TO ERR-STAT2. 
DISPLAY ERR1 AT LINE 1 AT COLUMN 1, ERASE TO END OF SCREEN. 
DISPLAY "Press RESUME to continue." AT LINE 3 AT COLUMN 1. 
CALL "WTRES". 

STOP RUN. 


EXT T 


TOOL KIT FORTRAN-77 


7.3 TOOL KIT FORTRAN-77 


FORDEM.FTN 


COPYRIGHT (C) 1979 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


MODULE: FORDEM 

VERSION: V0O1L.00 

AUTHOR: 

DATE: 1-APRIL-79 

MODIFIED 

DATE: 2-MARCH- 83 To run on the Professional 


FORTRAN demonstration program for FMS illustrating a 
Simple form-driven, data entry application. 


Below 1S an example command file to build this demonstration program 


SY:FORDEM/CP,SY:FORDEM/-SP=SY:FORDEM/MP 
TASK = FORDEM 

UNITS = 19 

ASG=TI:5:13:15 

ASG=6%2 1323728292102 24°: 12 


CLSTR=PROF77,POSRES,RMSRES: RO 


EXTSCT=MNSBUF:0 ;SINGLE CHOICE MENU 


EXTSCT=DMSBUF:0 >DYNAMIC SINGLE CHOICE 
EXTSCT=HLSBUF: 3410 >HELP 
EXTSCT=MSSBUF: 3100 ;MESSAGE 
EXTSCT=MMSBUF:0 >;MUTLI-CHOICE MENU 
EXTSCT=FLSBUF:0 *>MULTI-CHOICE MENU 
GBLDEF=MNS LUN: 22 ;MENU 
GBLDEF=HLSLUN: 20 ;HELP 
GBLDEF=MSSLUN: 21 >MESSAGE 
GBLDEF=TTSLUN?715 > TERMINAL I/O 
GBLDEF=WCSLUN: 23 

GBLDEF=TTSEFN:1 ;I/O EVENT FLAG 

as 


AOA AMO HAA ANA NAAN NAAANAAMA ANNO AND AAD ANAAAaEANaANMAAADAANAA AAO OANA AN 


Below is an example ODL file to build this demonstration program 


.ROOT FORDEM-FDV-RMSROT-OTSROT-OTSALL 
FDV: .FCTR LB:[1,5]HLLFOR-LB:[1,5]FDV/LB 
@LB:[{1,5]PROF77 
@LB:{1,5]RMSRLX 
. END 


AQAANANAANAANDA 


TOOL KIT FORTRAN-77 


IMPLICIT INTEGER (A-Z) 
DIMENSION IMPURE (1000) 
BYTE RESP(3), FORM(7), FORM1(7), DNAM(3), FILE(30), DATA(255) 
Cc 
C Initialize impure area for Form Driver and open form library. 


CALL WTQIO (768,5,5) !ATTACH THE TERMINAL 
CALI: FINIT “IMPURE, 1000) 
CHAN=2 


CALL FLCHAN( CHAN) . 
CALL ERROR (FLOPEN (’LB:[1,2]DEMLIB’)) 


Cc 
C Display menu form. 
C 
10 CALL ERROR (FCURSH (’FIRST '’)) 


Cc 
C Get input from terminal. Get named data (name of first form in 
C series or .EXIT.) corresponding to user’s choice. If named data 
C doesn’t exist, input invalid. 

Cc 


20 CALL ERROR (FGET (RESP, TERM, ‘’CHOICE’)) 
IF (FNDATA (RESP, FORM1) .GT. 0) GOTO 30 
CALL FPUTL (’Illegal choice’) 


GOTO 20 
Cc 
Cc Check for exit. If choice not exit, get name of corresponding 
C file and open it for output. 
Cc 
30 IF (SCOMP (FORM1, ’.EXIT.’) .NE. 0) GOTO 40 
CALL FLCLOS ! CLOSE FORM LIBRARY 
STOP 
4Q CALL CONCAT (RESP, ‘'F’, DNAM) 
CALL FNDATA (DNAM, FILE) 
OPEN (NAME=FILE,UNIT=1,STATUS=’NEW’ ,INITIALSIZE=10) 
Cc - 


C Display form and collect data; write data to output file. 
Cc 
50 CALL SCOPY (FORMI1, FORM, 6) 
60 CALL ERROR (FCLRSH (FORM) ) 
CALL ERROR (FGETAL (DATA) ) 
WRITE (1,70) (DATA(I), I=l1,LENGTH(DATA) ) 


70 FORMAT (78A1) !'DATA IS BROKEN INTO SEGMENTS FOR OUTPUT 
Cc 
C Get name of next form in series. Check for none. 
Cc 


CALL FNDATA (’NXTFRM’, FORM) 
IF (SCOMP (FORM, '.NONE.’) .NE. 0) GOTO 60 


If last form in series done, display a menu form. 
Get input from terminal. Get named data corresponding 
to user’s choice. If no named data, invalid input. 


ANAANN 


CALL ERROR (FCLRSH (’LAST’ ) ) 
80 CALL ERROR (FGET (RESP, TERM, *CHOICE’”)) 
IF (FNDATA (RESP, FORM) .GT. 0) GOTO 90 
CALL FPUTL (’Illegal choice’) 
GOTO 80 
Cc 
C If choice = l, repeat series. 
C Else close output file; check for exit or go back to 
C initial menu form. 


Cc 
90 IF (RESP(l) .EQ. '1’) GOTO 50 
CLOSE (UNIT=1) 
IF (SCOMP(FORM, '.EXIT.’) .NE. 0) GOTO 10 
CALL FLCLOS ! CLOSE FORM LIBRARY 
STOP 
END 


TOOL KIT FORTRAN-77 


SUBROUTINE ERROR (RESULT) 


Cc 
C Output message and exit if I/O error returned from 
C Form Driver. This is the only error expected in a 
C debugged application. 
Cc 
IMPLICIT INTEGER (A-2) 
c 
IF (RESULT .GT. 0) RETURN 
CALL FPUTL (‘'Fatal I/O Error’) 
STOP 
END 
SUBROUTINE SCOPY (SRC, DST, LEN) 
Cc 
C Copy a string of a specified length 
Cc 
C SRC = source byte string 
C DST = destination byte string to be ended by a zero 
C LEN = number of characters to copy 
c 


BYTE SRC(l), DST(1) 
INTEGER LEN 


Cc 
C Copy source to destination for length 
Cc 
DO 10 I = 1, LEN 
DST(I) = SRC(I) 
10 CONTINUE 
Cc 
C End destination string with zero byte 
Cc 
DST(LEN+1) = 0 
RETURN 
END 
INTEGER FUNCTION SCOMP (SRC1, SRC2) 
Cc 
C Compare two strings 
Cc 
C SRCl = first comparand byte string ended by a zero 
C SRC2 = second comparand byte string ended by a zero 
Cc 
C Value of function is zero for equal, nonzero for not equal 
C Compare returns failure if string lengths are not the same 
Cc 
BYTE SRC1(1), SRC2(1) 
¢c 
C Compare until either string ends in zero byte or does not match 
Cc 
I= 1 
10 IF (SRC1l(I) .EQ. 0 .AND. SRC2(I) .EQ. 0) GOTO 20 
IF (SRC1(I) .NE. SRC2(I)) GOTO 30 
oe. Led 
GOTO 10 
G 
Cc Return success 
Cc 
20 SCOMP = 0 
RETURN 
Cc 
Cc Return failure 
Cc 
30 SCOMP = 1 
RETURN 
Cc 
END 


SUBROUTINE CONCAT 
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(SRCl, SRC2, DST) 


Cc 
C Concatenate two strings into a third 
Cc 
C SRCl = first source string ended by a zero 
C SRC2 = second source string ended by a zero 
C DST = destination string ended by a zero 
Cc 
BYTE SRCl1(1), SRC2(1), DST(1) 
a 
C Copy the first string into destination 
G 
J = 1 
I= 1 
10 IF (SRC1(I) .EQ. 0) GOTO 20 
DST(J) = SRC1(I) 
JI=J+i1 
I= 1I+t1 
GOTO 10 
Cc 
C Now for second string to destination 
Cc 
20 ios 1 
30 DST(J) = SRC2(T) 
IF (SRC2(I) .EQ. 0) GOTO 40 
J = al Uae OE 
I= I+1 
GOTO 30 
C 
C Return 
C 
40 RETURN 
END 
SUBROUTINE INSERT (SRC, DST, POS) 
Cc 
C Replace a portion of one string with another 
Cc 
C SRC = source string ended by a zero 
C DST = destination string ended by a zero 
C POS = position in destination for source string contents 
Cc 
BYTE SRC(1), DST(1) 
INTEGER POS 
Cc 
C Scan the destination string for its end 
Cc 
a Se 
10 {F (DST(G). .FO. 0): GOTO: 20 
Ce ae | 
GOTO 10 
C 
C Copy source into destination at position given 
Cc 
20 I= l 
30 IF (SRC(I) .EQ. 0) GOTO 40 
DST(I+POS-1) = SRC(T) 
I=I+l1 
GOTO 30 
Cc 
C End destination string if source extends it and return 
c 
40 IF (I .GT. J) DST(J) = 0 
RETURN 
END 
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INTEGER FUNCTION INDEX (SRC, STR) 


Cc 
C Find position of one string in another 
Cc 
C SRC = source string 
C STR = target string 
Cc 
C Value of function is zero if not found, 
C or position of first character of STR in SRC if found 
Cc 
BYTE SRC(l), STR(1) 
Cc 
C Look for STR in SRC until end of SRC 
Cc 
J = 0 
10 J J+ 1 
I = 0 
IF (SRC(J) .EQ. 0) GOTO 30 
Cc 
C If end of STR then success 
C If not match look at next position in SRC 
Cc 
20 IF (STR(I+1l) .EQ. 0) GOTO 40 
IF (SRC(J+1I) .NE. STR(I+1)) GOTO 10 
I=I+1 
GOTO 20 
Cc 
C Return failure 
Cc 
30 INDEX = 0 
RETURN 
Cc 
C Return success, position of string 
Cc 
40 INDEX = J 
RETURN 
Cc 
END 
INTEGER FUNCTION LENGTH (STR) 
Cc 
C Return length of string ended by a zero 
Cc 
C STR = string ended by a zero 
c 
C Value of the function is the length of the string without the zero 
Cc 
BYTE STR(1) 
Cc 
C Scan for the zero byte 
. 
I= 1 
10 IF (STR(I) -EQ. 0) GOTO 20 
I=I+1 
GOTO 10 
c 
C Return the length of the string 
Cc 
20 LENGTH = I - 1l 
RETURN 
END 
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7.4 TOOL KIT MACRO-11 


. 
¢ 


. 
, 


é 


-TITLE MACDEM 


MACDEM.MAC 


MODULE: MACDEM 
VERSION: v0o1.00 

AUTHOR: 

DATE: 19-NOVEMBER-79 
MODIFIED: SGDO001 

DATE: 14-APRIL-1983 


- FMS DEMONSTRATION SUBROUTINE 


COPYRIGHT (C) 1979 
DIGITAL EQUIPMENT CORPORATION, 


-- 


BY 
MAYNARD, MASS. 


TO RUN ON THE PROFESSIONAL 


Assembly and Compile instructions: 


To assemble type: 
MCR PMA <RET> 


(VAX) 


PMA> MACDEM,MACDEM/-SP=LB:[(1,5]FMSMAC/ML,LB:[{1,5]RMSMAC/ML, DEV: {UIC]MACDEM 


To compile type: 


MCR PROTKB 


PAB> @MACDEM.CMD 


Assembly and Compile instructions: 


To assemble type: 
RUN SPMA <RET> 


(RSX) 


PMA> MACDEM,MACDEM/-SP=LB:[1,5]FMSMAC/ML,LB:[1,5]RMSMAC/ML, DEV: [UIC]MACDEM 


To compile type: 


RUN $PROTKB 


PAB> @MACDEM.CMD 


-ENABL LC 


-MCALL SFDV,S$SFDVDF 


-MCALL QIOWSS,EXITSS,DIR$,ALUNS 
POOLSB : 


-MCALL FABSB, 
-MCALL $STORE 


-MCALL $CONNECT, 


-MCALL S$PUT, 


SFDVDF 


Equated symbols 


ISIZ=1024. 
INSCHN=1 
OUSCHN=2 


RABSB, 


, $COMPARE, 


SCLOSE, 


ORGS 


SCREATE ; 


SDISCONNECT j 


Allow lower case source text 
Identify Form Driver macro calls 


RSX I/O related macros 
RMS related macros 


Init the Form Driver definitions 


>; Size of FDV impure area 
; Input channel number (Form Library) 
; Output channel number (Output File) 


EXTNAM: 


NONNAM: 
FSTNAM: 


LSTNAM: 
CHCNAM: 
NXTNAM: 
LIBNAM: 
MSGI: 
MSG2: 


« 
’ 


-SBTTL 


-ASCII 
-ASCII 
AS CLT 
-ASCIT 
-ASCII 
sao CLL 
-ASCIZ 
-ASCIZ 
-ASCIZ 
.- EVEN 
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Local data 


/.EXIT./ 
/.NONE./ 
/FIRST / 
JLAST 7 
/CHOICE/ 
/NXTFRM/ 
/UB:{1,2]DEMLIB/ 
/lillegal choice/ 
*Fatal I/O error* 


; Argument lists and data area 


° 
, 


ARGLST: 
REQLST: 


STAT: 
VARI: 
FRMNAM: 


SAVNAM: 
IMPURE: 


. 
, 


- BLKB 
- BLKB 


- BLKW 
- BLKB 
- BLKW 
. BLKW 


-WORD 
- BLKB 


; I/O section 


e 
c 


FABADD: 


RABADD: 


RMSSLUN: 


- EVEN 


FABSB 
FSDEQ 
FSALQ 
FSFOP 
FSFAC 
FABSE 


- EVEN 


RABSB 
RSFAB 
RSRAC 
RABSE 


. EVEN 
POOLSB 
PSBDB 
PSFAB 
PSRAB 
PSBUF 
POOLSE 


. EVEN 
ALUNS 
. EVEN 
ORGS 


-SBTTL 


FSASIZ 
FSRSIZ 


2 
2 
FBSSUP 
FBSPUT 


FABADD 
RBSSEQ 


Ul F Pb 


OUSCHN, SY, 0 


SEQ,<CRE,PUT> 


Ex1t name 

No more forms in series 

ASCII form name 

ASCII form name 

ASCII field name 

ASCII named data field name 
ASCII library name 

Message for illegal menu choice 
Message with embedded ‘/’ 


Form Driver argument list 
Form Driver required list 


Form Driver status block 
Variable 6-byte block for general 


Area for form names 
Save area for a form name 
Form Driver impure area 


Allocate RMS FAB 

Default file extension size 
Allocation size for the file 
Create new file 

File access operations 

End FAB declarations 


Allocate RMS RAB 
Connect to FAB address 
Record access is sequential 


Begin Pool declarations 
Allow two buffer desc blocks 


Only one file will be open 
Need only one RAB 
I/O Buffer space 


Assign a LUN to the Disk 


Define RMS needed functions 


MACDEM - FMS Demonstration Subroutine 


7-23 


use 


;++ 
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, FUNCTIONAL DESCRIPTION: 


DEMO: 


pei 


FIRS)? 


LOS 


203% 


30S: 


This 1s the MACRO demonstration program for FMS 


illustrating a simple form-driven, 


application. 


-PSECT MACDEM 

DIRS #RMSSLUN 

QIOWSS #I0.ATT,#TSLUN,#TSEFN 
BCC 1$ 

CALL LEAVE 

MOV #ARGLST,RO 

MOV #REQLST,RI1 
MOV #STAT,FSSTS(R1) 

MOV #INSCHN,FSCHN(R1) 
MOV #IMPURE,FSIMP(R1) 
SFDV REQ=Rl1 

SFDV FNC=OPN,NAM=#LIBNAM 
CALL ERREX 

SFDV FNC=CSH,NAM=#FSTNAM 
CALL ERREX 

SFDV FNC=GET,NAM=#CHCNAM 
CALL ERREX 
MOV #VARI,RI 

CALL BLKNAM 
MOVB @FSVAL(RO),VARL 
SFDV FNC=DAT,NAM=#VARI1 
CMP STAT, #FSSSUC 

BEQ 20$ 

SFDV FNC=LST,VAL=#MSG1 , LEN=#- 
BR 10$ 
MOV FSVAL(RO),R1 
MOV #EXTNAM,R2 

CALL CMPNAM 

BNE 305$ 

IMP LIBCLS 

CALL MOVNAM 
MOV #F RMNAM,R1 

MOV #SAVNAM,R2 

.REPT 3 

MOV (R1)+,(R2)+ 

. ENDR 

MOVB #’'F,VAR1+1 

MOV #VARI1,RI1 

SFDV FNC=DAT,NAM=R1 

MOV #FABADD,R3 

MOV #RABADD,R4 

SSTORE FSVAL(RO),FNA,R3 
SSTORE FSLEN(RO),FNS,R3 
SSTORE #OUSCHN,LCH,R3 


SCREATE R3 

SCOMPARE #SUSSUC,STS,R3 
BEQ 40s 

CALL LEAVE 


data-entry 


Assign the LUN 0 to the Disk 
Attach the terminal 

If error then just leave 
Done for now 

RO = addr of FDV arg list 
Rl = 
Set addr of status block 
Set I/O channel for FDV 

Set addr of FDV impure area 


po ole a a 
Open 
Exit 


required arg list pointer 
form library 
with error 


Show menu form 
Exit if error 


Get field ’CHOICE’ 
Exit if error 


Rl = ptr to 6-byte block 

Blank out VARI 

VAR] = menu choice 

Get named data with the name 
the response to ‘CHOICE’ 


Was get successful? 


Continue if ok 
; Else print message on line 24 
Try again 


co addr of name from named 
R2 addr of exit name 

zero set on match 

Continue on match 

Else close form library and exit 


Save named data 
Rl = adr of source name 
Adr to save form name 


Save form name 


Make 2nd letter = F 
Rl = addr of 6-byte block 
Get named data at VARI 


FAB address to R4 
RAB address to R4 
Move the addr of the file 
Move the file name size 
Set the LUN in the FAB 
Create the file 

Check RMS Status 

Continue if status = 1] 
Leave on [I/O error 


the 
the 


Move 


Move 
name 


24 


addr of FDV required arg list 


being 


data 


40S: 


60S: 


EO0S3 


80S: 


90S: 


; Close 


CHKCLS:: 


95S: 


LIBCLS:= 
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SCONNECT R4 
SCOMPARE #SUSSUC,STS,R4 


BEQ 
CALL 


SFDV 
CALL 


SFDV 
CALI 


CALL 


SFDV 
CALL 
MOV 
MOV 
CAGE 
BEQ 
BR 


SFDV 
CALL 


SFDV 
CALL 


MOV 
CMEB 
BNE 

MOV 

MOV 
-REPT 

MOV 

-ENDR 
BR 


MOVB 
MOVB 
SFDV 
TST 
BGT 


SFDV 
BR 


60$ 
LEAVE 


ARG=#ARGLST,FNC=CSH,NAM= 


ERREX 


FNC=ALL 
ERREX 


SAVDAT 


ARG=#ARGLST,FNC=DAT , NAM=#NXTNAM 


MOVNAM 
#NONNAM,RI1 
#FRMNAM,R2 
CMPNAM 

70$ 

60$ 


FNC=CSH ,NAM=#LSTNAM 
ERREX 


FNC=GET , NAM=#CHCNAM 
ERREX 


FSVAL(RO),RI 
(Rl) gated 

90$ 

#SAVNAM,R1 

#F RMNAM,R2 

3 
(R1)+,(R2)+ 


60$ 


(R1L),VARI 
#40,VAR1+1 
FNC=DAT ,NAM=#VARI1 
STAT 

CHKCLS 


‘ 


. 
‘ 


. 
‘ 


, 


FNC=LST,VAL=#MSG1,LEN=#-1 


80$ 


the output file 


MOV 


#FABADD,R3 


SDISCONNECT R4 
SCOMPARE #SUSSUC,STS,R4 


BEQ 
CALL 
SCLOSE 
MOV 
MOV 
MOV 
CALL 
BEQ 
IMP 
SFDV 
BR 


95$ 

LEAVE 

R3 
#EXTNAM,RI1 
#ARGLST,RO 
FSVAL(RO),R2 
CMPNAM 
LIBCLS 
FIRST 
FNC=CLS 
EXIT 


, 


Connect the RAB to the FAB 
Check RMS Status 

Continue if ok 

Leave on I/O error 


#FRMNAM 


Exit with error 


Get all data from form 
Ex1lt with error 


Put data in file 


>; Get name of next form 
Put form name in FRMNAM 

Rl = adr of ASCII .NONE. 

R2 = adr of returned name 
zero set on match e 

Display last form on match 
Else get data from next form 


Exit with error 


Exit with error 


Rl = adr of answer 
LS. ‘= 1 


Rl 
R2 


source name 
dest name 


i 


Ul 


Move name 
Get more data 


Move into variable for name 
Make 2nd char blank 

Get named data 

Check status 

If ok then close file 


; Print message on line 24 
Try again 


Move the addr of the FAB to R3 
Disconnect the access stream 
Check RMS Status 

Branch if Status OK 

Else I/O error 

Close output file 

Name of exit named data 

Get ARGLST 

R2 = adr of named data 

zero set if match 

Exit on match 

Back to start on no match 
Close form library 

And exit 
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; Routine to check for error return from Form Driver. 


; Print message and exit on error. 


ERREX: CMP STAT, #FSSSUC ; 
BNE LEAVE 
RETURN 
LEAVE: SFDV ARG=#ARGLST 
SFDV FNC=LST, VAL=#MSG2, LEN=#-1 
EXIT: EXITSS 


; Subroutine to store data in output file 


° 
‘ 


SAVDAT: S$STORE FSVAL(RO),RBF,R4 : 
SSTORE FSLEN(RO),RSZ,R4 4 
SCOMPARE #0,RSZ,R4 ; 
BEQ TOs ri 
SPUT R4 ; 
SCOMPARE #SUSSUC,STS,R4 ; 
BEQ 10$ ; 
CALL LEAVE ; 

10S: RETURN 


Was call ok? 


; Print message on iine 24 


Move the addr data to the RAB 
Move the len of data to RAB 
See if the data length is zero 
If not return 

Store away the string of data 
Check the RMS Status 

Branch if equal 

Leave on I/O error 


Subroutine to move name and blank fill to 6 chars 


to store form name 
name 

of named data 

R2 = addr to store form name 
Length of named data 

Move named data to form name 
Dec char ctr 


addr 
Blank out 
Ri vs addr 


Ri. = 


; FSVAL(RO) = Addr of source name 
; FSLEN(RO) = Length of source name 
; FRMNAM = Addr of destination of name 
MOVNAM: 
MOV #FRMNAM,RI1I : 
CALL BLKNAM ; 
MOV FSVAL(RO),RI1 ; 
MOV #FRMNAM,R2 ; 
MOV FSLEN(RO),R3 ; 
103 % MOVB (R1)+,(R2)+ ; 
DEC R3 ; 
BNE 10$ 
RETURN 


; Subroutine to blank 6 bytes 


i Rl = Addr of name to blank 
BLKNAM: 
MOV #6,R2 ; 
5S.2 MOVB #40,(R1)+ : 
DEC R2 ; 
BNE 5S 
RETURN 


Subroutine to compare two 6-byte names 
R1,R2 point to names 


: R3 = 0 if match on return 

CMPNAM: 
MOV #6,R3 ; 

10S: CMPB (R1)+,(R2)+ 7 
BNE 20$ ; 
DEC R3 Pi 
BNE 10$ 

20S: RETURN 
- END DEMO 


R2 = ‘6 
Init name with blanks 
Dec byte ctr 


6 char compare 

Compare 2 bytes 

Leave loop if no match 
Dec char ctr 
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; MACDEM. CMD 


F Command file for FMS - MACRO Demonstration program 


MACDEM/CP/-FP,MACDEM/-SP=MACDEM/MP 
TASK = MACDEM 

UNITS =: <6 

ASG = TI:5 

ASG: Ss SY i Leese: 6 e738 

CLSTR = FMSRES, POSRES,RMSRES:RO 


EXTSCT=MNSBUF:0 ;STATIC SINGLE CHOICE MENU 

EXTSCT=DMSBUF:0 ;DYNAMIC SINGLE CHOICE MENU 

EXTSCT=HLSBUF: 3500 ;HELP TEXT/MENU 

EXTSCT=MMSBUF:0 ;MUTLI-CHOICE MENU 

EXTSCT=FLSBUF:0 *;FILE SELECTION/SPECIFICATION 

GBLDEF=MNS$LUN:2 ;MENU FRAME FILE 

GBLDEF=HLSLUN: 3 ;HELP FRAME FILE 

GBLDEF=MSSLUN: 4 ;MESSAGE FRAME FILE 

GBLDEF=TTSLUN:5 ;TERMINAL I/O 

GBLDEF=MBSLUN:6 ;MESSAGE/STATUS DISPLAY 

GBLDEF=WCSLUN: 7 ;DIRECTORY SEARCHES FOR OLDFIL AND NEWFILE 

GBLDEF=TTSEFN:1 ;I/O EVENT FLAG 

of 

; MACDEM.ODL 

; ODL file for the FMS - MACRO Demonstration program. 
.ROOT USER-RMSROT 

USER: .FCTR MACDEM - LB:[{1,5]SYSLIB/DL 

@LB:[{1,5]RMSRLX 


.- END 
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7.5 TOOL KIT PASCAL 


When using PASCAL with PRO/FMS-11, follow these instructions: 


Source Code. PRO/FMS-11 calls for PASCAL are in the Tool 
Kit file FMS.PAS in directory LB:[1,5]. Use the INCLUDE 
directive to include the file in your PASCAL source code: 


{ Include PRO/FMS Procedures } 
S$Include 'LB:[1,5]FMS.PAS’ 


Calling Sequence. FMS.PAS consists of SEQ11 procedures, 
which pass all parameters by reference. To determine the 
appropriate calling sequences for your application, refer to 
FMS.PAS and the section in the Tool Kit PASCAL User’s Guide 
on interfaces between Tool Kit Pascal and P/OS and other Tool 
Kit Software. 


NOTE 


Pad PASCAL form and field names with six 
Spaces. Otherwise, the Form Driver cannot 
access the form or field. 


Parameters. There are no optional parameters for PASCAL 
calls to PRO/FMS-1i1. You must include all parameters. For 
example, in FMS.PAS, declare FCLRSH as a SEQi1 procedure with 
two parameters. If you want to use the FCLRSH call, but you 
do not want to specify a new value for the starting line, 
pass 0 as the first parameter. The form displays at the 
Starting line specified. 


Indexes. When using an FMS.PAS routine that allows 
indexes, you must specify an index for the variable. When 
you access the field, assign it an index of 1. For example: 


index := 1; 


7 
field. s= “CHOICE; 
FGET (response, terminator, field, index); 


Variables. PASCAL can pass only variables when calling 
routines declared in FMS.PAS. For example, the following’ 
source statement would fail: 

FCLRSH("FIRST ",0); 


The correct calling sequence for FCLRSH is: 


TOOL KIT PASCAL 


VAR Form_Name : Packed Array [1..6] Of Char; 
Starting_Line : Integer; 


{ Main Program } 
Form_Name o= SRT Rol “ss 
Starting_Line := 1; 


FCLRSH(Form_Name,Starting_Line); 
If you want to pass constants as parameters, edit FMS.PAS and 
assign the appropriate formal parameters the READONLY 
attribute. For example, if you edited FMS.PAS so that both 
FCLRSH parameters were READONLY, you could use the call: 
ECLROH GC” FIRST” ¢1.).2 


See the PASCAL User’s Guide for details on interfaces between 
Tool Kit Pascal and PO/S and other Tool Kit software. 


Library File Specification. You must terminate a library 
file specification with a NUL character. Without it, 
PRO/FMS-11 cannot access the library file. For example, this 
is a correct PASCAL library file specification: 

VAR File_Spec : Packed Array [1..15] Of Char; 

{ Main Program } 

File .Spec += ’LB<{1,2]DEMLIB’ (0); 

FLOPEN(File_Spec) ; 
FPUTL. You must terminate data sent to the FPUTL call with 
a NUL character. Without it, random data might appear on the 
Screen. For example, this PASCAL sequence would successfully 


pass data to FPUTL: 


VAR Message : Packed Array [1..16] Of Char; 


{ Main Program } 
Begin 
Message := ’Example message’ (0); 
FPUTL(Message); 

End. 
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@® Impure Area and Data String Restrictions. Using PASCAL 
with FMS.PAS, you can define an impure area as large as 1500 
bytes and pass a data string of up to 1500 characters. If 
you need larger values, increase the variable MAX _FMS_PAR_LEN 
in FMS.PAS. 


Add one byte to the size of your buffer where any call to the FMS 
Form Driver produces data returned to your program as a buffer. 
The Fortran Interface places a null byte at the end of the string 
returned to the caller to signify the end of the string. If you 
do not add the extra byte, the PRO/FMS-11 Form Driver overwrites 
part of your data space or program. 


For example,if the field is one character long, the response 
buffer must be two characters long. 


The following is a sample PRO/FMS-11 program in PASCAL, using 
FMS.PAS. 


PROGRAM PASDEM (INPUT,OUTPUT); 
{ PASDEM. PAS 
Copyright (Cc) 1983 By 
Digital Equipment Corporation, Maynard, Mass. 
Module: PASDEM 
Version V01.00 
Author: 
Date: 27-Apr-1983 
PASCAL Demonstration program for PRO/FMS illustrating a 
simple Form-Driven, data entry application. 


Below is an example command and odl file to build 
this demonstration program. 


; PASDEM. CMD 


SY:PASDEM/CP/-FP, PASDEM/MA/-SP=SY:PASDEM/MP 
CLSTR=PASRES, POSRES,RMSRES, DAPRES: RO 
TASK=PASDEM 


UNITS = 20 

ASG fame ed ee Nea A rN 
ASG = SY2627 7829210211212 
EXTSCT = MNSBUF:0 
EXTSCT = HLSBUF:3410 
GBLDEF = MSSLUN:21 
GBLDEF = WCSLUN: 23 
GBLDEF = HLS$SLUN:20 
GBLDEF = MNSLUN: 22 
GBLDEF = TTSLUN:15 
GBLDEF = TTSEFN:1 

// 
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Example ODL file: 
; PASDEM.ODL 

-ROOT USER - PASCAL 
USER: we CER SY:PASDEM 


PASCAL: .FCTR LB:[{1,5]PASLIB/LB-FDV-RMSROT 


FDV: FcR LBs flo JHLGPOR=bB2 (1), So) FDV<OLBZLB 
@LB:{1,5]DAPRLX 

- END 
Include PRO/FMS Procedures } 


‘Include 'LB:[{1,5]FMS.PAS’ 


{ Declare types and variables } 

TYPE 
Impure = PACKED ARRAY [1..1000] Of Integer; 
Forms = PACKED ARRAY [({1..6] Of Char; 
File Spec = PACKED ARRAY [1..15]} Of Char; 
Buffer = PACKED ARRAY [1..225] Of Char; 
Out Line = PACKED ARRAY [{1..41] Of Char; 
Named Data = PACKED ARRAY [1..66] Of Char; 

VAR 
QIO Function, { Qlo function code } 
TT LUN, { Terminal LUN } 
TT EFN, { I/O event flag } 
Index, { FMS field index } 
Length, { Length of data } 
Channel, { FMS Library channel } 
Terminator, { Form terminator } 
Starting Line, { Starting line for forms } 
Status l, Status 2, { Status values of FMS calls } 
Impure Size: Integer; { FMS Impure area } 
Impure Area: Impure; { Size of FMS Impure area } 
Library: File Spec; { Forms library } 
Field, . { FMS field name } 
Response, { User’s response } 
Next Form, { Next form to display } 
Current Form: Forms; { Current form to display } 
Message: Out Line; { Message for FPUTL call } 
All Data: Buffer; { Storage for all data in a form } 
Name Data: Named Data; { Storage for named data } 
More Data: Boolean; { Flag for more data } 
Out File: Text; { File variable for outfile } 

f **x** Procedure to wait for the RESUME key ***** 


This procedure is called in the event that the forms library can not 
be opened. This procedure calls the routine WTRES in the P/OS callable 
library. } 


PROCEDURE WTRES; SEQ11; 


{ etee® Procedure €o attach the terminal ***** 


Call this procedure to attach the terminal. The Form Driver 
needs the terminal attached. Call the FORTRAN routine WTQIO in 
SYSLIB. } 


PROCEDURE WTQIO(VAR QIO Function: Integer; {Function code for QIo } 
VAR TT _ LUN: Integer; {I/O Channel } 


VAR TT EFN: 
\; SEQLI; 


{ kkk Kk 


TOOL KIT PASCAL 


Integer 


{I/O Channel } 


Procedure to move data in one variable to another 


krkK KK 


Call this procedure to move character data from one variable 


to another variable. 


THis: LS Useful. Ph. -the two variables differ ain 


length. Three parameters pass. Copy the two variables and the number 
of characters from the first variable to the second variable. } 
PROCEDURE MOVE(VAR Varl: Packed Array[LBl..UPI1 Integer] Of Char; 
VAR Var2: Packed Array[LB2..UP2 Integer] Of Char; 
VAR Length Integer 
); 
VAR 
I Integer; 
Begin 
de 23 LS 
While I <= Length Do 
Begin 
Var2[(1] <= Varl[i]; 
pe ee ee, ee 
End 
End; 
{ End of Procedure MOVE 
Begin 
{ CRASS Lee Lal ee vatiab Les. sees } 
index <= 0; 
Channel := 7; 
Impure Size := 1000; 
Library c= "LB: [1,2 ]DEMLIB*’ (0); 
OLO. Funce von e768; 
Pr DUN: 3 <5) 
TT. EFN := 5; 
Starting Line := 1; 
Current Form ee: Ot es 
{ eee *e* Tnitialize FMS Impure Area and Open Library ***** } 
WTQTO(QIO Function, TT LUN; TT EFN); {Attach the terminal 
FINIT(Impure Area,Impure Size,Status 1); {Iniatilize FMS Impure Area 
FLCHAN(Channel); {Set the library channel 
FLOPEN(Library ); {Open demonstration library 
Writeln( CHR(27)).47 (25753 {Clear the screen 
{ Display menu form for operator to select the data collection 


series. 


This will continue until the operator 


chooses the exit 


selection from either the form called FIRST or the form called LAST 


While Current Potm. <> ~. EXIT. 4 
Begin 
Current Form ve ERP ERST. 3 


FCLRSH(Current Form,Starting Line); 


FSTAT(Status_1,Status 2); 


Do 


{Display the first form 
{Check the status 


} 
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If Status 1 = 1 Then 
Begin 
Field 2= “CHOTLCE*> 
Status 1 .:= 0 
End 7 
Else {Else display error message } 
Begin fand exit. } 
Status: Ll. t= 25 
Next Form oS eee yo 
Length := 6; 
MOVE(Next Form,Name Data,Length) ; 
Writeln(’Error opening library file, Press RESUME to continue.’); 


Writeln; 
WTRES {Wait for the operator to } 
End; {IF} {read error message } 


While Status 1 <> l Do 


Begin 
FGET(Response,Terminator,Field,Index); 
FNDATA(Response,Name Data); 
FSTAT(Status 1,Status 2); 

If Status 1 < 0 Then © 


Begin 
Message := ’Illegal Choice 0-73 
FPUTL(Message) 

Ena: E23 


End; {While Status} 


Length := 6; 
MOVE(Name Data,Current Form,Length) ; 


Tf Current Form <>) /<EXIT:’ ‘Then 
Begin 

Field := Response; 

Field[2] 2= ‘'F’; 


FNDATA(Field,Name Data); 
Open(Out File, . 
File name:=Name Data, 
History:=New, - 
Record length:=255 
); 


More Data := TRUE; 

While More Data Do 

Begin; 7 
Next Form := Current Form; 
While Next Form <> ‘.NONE.’ Do 
Begin 


FCLRSH(Next Form,Starting Line); 

FGETAL(ALL Data,Terminator)j; 

Write(Out File,All Data); 

Field := ‘NXTFRM’; 

FNDATA(Field,Name Data); 

MOVE(Name Data,Next Form,Llength) ; 
End; {While Next Form} 


Status 1 ee 
Field +2 '* CHOICE”; 
Next Form := ’LAST saree 


FCLRSH(Next Form,Starting Line); 

While Status _ 1 <> 1 Do 

Begin 
FGET(Response,Terminator,Field,Index); 
FSTAT(Status LeSstatus .2)5 
FNDATA(Response,Name Data); 


TeS5 
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FSTAL( Status Ly: Statws: 2.) % 
EE Status 1c 0 Then 


Begin 
Message := 'Illegal Choice 
FPUTL(Message) 

End {IF} 


End; {End While Status} 


If Response[1l] = ’2’ Then 
Begin 
More Data := FALSE ; 
Close(Out File) 
Ena? {07 4 7 


If Response[l] = ’3’ Then 
Begin 
More Data >= FALSE; 
Close(OMt:. File.) 7 
Current Forme.) “ .bADT..? 
End: {IF} 
End; {While More Data } 
End; {IF} 
End; { While Current Form } 
FLCLOS; { Close FMS library file } 


End. 


Associated documents, vi 
Audience 
for this manual, v 


Cluster libraries 

copy DEMLIB.LIB, 6-1 

copy FMSDBG.MSG, 6-1 

debug, 6-1 

example files, 4-9 

Form Driver, 4-1 

linking routine libraries, 4-7 
Command file 

editing cluster libraries, 4-7 

editing object module, 3-3 


DEMLIB.FLB, /-1 

Descriptor file (.ODL) 
editing cluster libraries, 4-7 
editing object module, 3-5 


Editing functions 
mapping, 4-6 


Field terminators 
mapping, 4-6 
FLOPEN 
Changes in call, 3-9 
Form Driver 
command file editing 
cluster libraries, 4-7 
object library, 3-3 
linking with 
cluster libraries, 4-7 
object library, 3-3 
memory resident 
cluster libraries, 4-8 
object library, 3-8 
(.ODL) file editing 
cluster libraries, 4-8 
object library, 3-5 
Professional keyboard, 3-1 
Form Driver calls 
new calls (cluster library 
only), 4-1 
Form Editor 
Professional Keyboard, 2-2 
Function keys, 4-4 


INDEX 


terminator values, 4-4 
turn off processing, 4-3 
turn on processing, 4-2 


HELP 
creating new Help frames, 5-2 
P/OS Help frames, 5-1 


Impure areas 
need for, 3-1 


Keyboard differences 
Form Driver, 3-1 
Form Editor, 2-2 


Linking 
cluster libraries Form Driver, 
4-7 
object module Form Driver, 3-3 


Media resident forms 
with cluster libraries, 4-8 
with object module, 3-5 
Memory resident forms 
with cluster libraries, 4-8 
with object module, 3-8 


Passing variables 
COBOL-81, By Descriptor, 7-7 
COBOL-81, By Reference, 7-12 
PROFED 
attribute differences, 2-1 
creating forms with, 1-2 
running in terminal emulation, 
2-1 
PROFUT 
creating a form library with, 
1-2 
Program development 
compile or assemble, 1-3 
copy files to Professional, 1-3 
create form library, 1-2 
create forms, 1-2 
eyele;. eZ 
illustration 
Host Tool Kit, 1-5 
Pro/Tool Kit, 1-4 


Index-l 


install application, 1-3 
installation command file, 
languages, 1-1 

modify (.ODL) file, 1-3 
run program, 1-3 

sample program, 1-1 

task building, 1-3 

write source code, 1-2 


INDEX 


1-3 


Index-2 


Sample programs 
BASIC-PLUS-2, 7-1 
COBOL-81, 7-7 
FORTRAN-77, 7-17 
MACRO-11, 7-22 
PASCAL, 7-28 


Terminal operator 
languages, 4-3 


